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TEST: Tandy Modell 100 

ASSEMBLER-KURS, Teil 5 

SPRACHAUSGABE 
Das COLOUR GENIE spricht! ! ! 


TONGENERATOR 
Töne mit dem Genie oder TRS 80 

BILDSCHIRM-EDITOR 


Die Qual mit Ed it hat ein Ende! 




Wie hätten Sie's g ern ? 

Gestalten Sie die GENIE DATA mit! 

BLUMEN VERSETZEN 


LAUFSCHRIFT 

coloiKq#^^^ 

Neue Colour Genie Befehle 


CRTC-TRICKS 

BILDLIST 

MOGELN 

BASICSTART 
Komfort für 
Genie und 
TRS 80 

HASENJAGD 

ED E L BAS IC 


Klein aber oho! I ! 
Der deutsche Meister 1984 
im Helikopter-Punkte- 
Wettkampf. 






Wir haben die 

tollsten 

Programme... 

Von unserem Super-Software-Programm sollten auch Sie profitieren ! ! ! 
Denn wir hoben die fantastischsten Spiele und die tollsten Hilfspro- 
grammQl ! ! V8r haben die Programme, die Sie haben sollten ! ! ! 

CHESS MAGHINE 

Das neue Schachprogramm, mit der ganz tollen Grafik. Sowas haben Sie noch nie ge- 
sehen! — Höchstens bei Computer mit Super-Hochauflösender Grafik I — Und der 
Clou. CHESS MACHINE gibt Kommentare zu Ihrem Spiel. Damit Sie endlich einmal 
wissen was Sie richtig, und was Sie falsch machen I Sieben Spielstufen I 
Preis auf Cassette: 59,- DM Preis auf Diskette: 69,-- DM 

SUPER BASIC -DER UNGLAUBLICHE NEUE BASIC-COMPILER 

SUPER BASIC verarbeitet Felder (z. B. DIM B$ (9,9,8) gehtl) I SUPER BASIC ist 
fast kompatibel zum Colour Genie Basicl Übersetzte Programme laufen bis zu 300x 
schneller I 

Preis auf Cassette : 89,- DM Preis auf Diskette : 99,-- DM - Mit Disk -Befehlen I ! ! 

SUPER ASSEMBLER - DER ASSEMBLER, DER NEUE MASSSTÄBE SETZT! 
Was Sie mit diesem Assembler alles übersetzen können ist unglaublich 1 1 1 Und die vie- 
len Befehle, die der versteht. Die Disk -Version assembliert auf Wunsch direkt von der 
Diskette (Source-Code bis 170 K I) I 

Preis auf Cassette: 89,- DM Preis auf Diskette: 99,-- DM 

HELIKOPTER 

Retten Sie die armen hilflosen Menschen! Versuchen Sie den weißen Elefanten zu 
überfliegen. HELIKOPTER - Das Spiel, von dem die Fachpresse schwärmt I (Siehe 
z. B. Computer Kontakt Nr. 6-7/84) 

Nur auf Cassette lieferbar I Preis : 59,-- DM 

GORILLA 

Die fantastische Donkey-Kong Version für Ihr Colour Genie. Mit 10 verschiedenen 
Bildschirmen I 

Nur auf Cassette lieferbar I Preis: 49,- DM 

FIREBIRD 

Können Sie die Erde vor den erbarmungslosen Angreifern aus dem All retten??? 
Super-Action ist garantiert! 

Nur auf Cassette lieferbar I Preis : 49,- DM 

PACBOY 

Helfen Sie dem kleinen PACBOY vor den hungrigen Gespenstern zu entkommen! 
Preis auf Cassette: 49,- DM Preis auf Diskette: 56,- DM 

VORTEX 

Bewahren Sie die Ringe des Saturn vor den Aliens. Schaffen Sie das??? 

Preis auf Cassette . 49,- DM Preis auf Diskette : 56,- DM 

ASTRAY 

Fliegen Sie den schnellsten Überschalljäger der Erde und vernichten Sie die Angreifer 
Preis auf Cassette : 59,- DM Preis auf Diskette 66,- DM 

Sie sehen, wir haben für jeden Geschmack etwas zu bieten. Also bestellen 
Sie noch heute bei: Heinz Hübben, Abt. Software, 5429 Marienfels/Ts. 

Versand per Nachnahme. + 5,~ DM Porto — Versand per Vorkasse: Frei 


Sie auch??? 
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ASSEMBLER-KURS 

Weiter geht es in unserem Kurs 



Seite 5 


DIE SIEGER 

Wer hat gewonnen ? 


Seite 9 


SPRACHAUSGABE 

Wer gedacht hat, sein Colour Genie kann nur 
Töne machen, hat sich geirrt ! Das Colour 


Genie kann sprechen! 

Seite 10 

TONGENERATOR 

Genie 1, II und TRS 80 machen Musik. 

Seite 12 

BILDSCHIRM-EDITOR 

Der Edit-Befeh! ist tot ! Es lebe der Bildschirm- 

Editor! 

Seite 14 

KLEINANZEIGEN 

Suchen Sie etwas? Hier finden Sie es. 

Seite 16 

TANDY'S KLEINER 

Was der Tandy Modell 100 leistet. 

Seite 18 

CRTC-Tricks 

Hier sehen Sie, was alles geht I 

Seite 20 

BILDLIST 

Ein Colour Genie Hilfsprogramm 

Seite 20 

MOGELN 

Das rasante Kartenspiel jetzt auch auf Ihrem 

Computer! 

Seite 21 


BASICSTART 

Jetzt können Genie und TRS 80 Besitzer Ihre 


Basic-Programme wie CMD-Programme 
starten! 


Seite 26 


HASENJAGD 

Der Name hört sich ja nach Schießspiel an. 

Sie bekommen aber ein Denkspiel erster 
Klasse! Seite 30 


EINKAUFSFÜHRER 


Seite 33 


EDEL-BASIC 

Basic ganz komfortabel für alle Genie und 

TRS 80 Anwender. Wie es geht sehen Sie 

ab Seite 40 

WIE HÄTTEN SIE'S GERN? 

Hier bietet sich Ihnen die Möglichkeit, die 
GENIE DATA aktiv mitzugestalten. 

Machen Sie Gebrauch davon ! Seite 46 

BLUMEN VERSETZEN 

Fast so knifflig wie Rubik's Cube ist 
dieses Puzzle-Spiel um zwei Blumen. 

Schaffen Sie es? Seite 47 . 

LAUFSCHRIFT 

Diesmal ganz komfortabel, mit Maschinen- 
Routine, zum Einbau in eigene Programme 
Listingat) 


Seite 38 


COLOUR TOOL 

Neue Befehle für Ihr Colour Genie. 

Und Erklärung, wie man selbst neue 

Befehle einbaut. Seite 57 
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Verlag zuständige Gericht. 

Manuskripte: Unangeforderte Manuskripte 
werden nur zurückgesandt, wenn ausreichen- 
des Rückporto belgalegt wurde. Jeder Ein- 
sender erklärt sich durch die Einsendung 'mit 
einer Veröffentlichung des eingesandten Ma- 
terlalslr» der GENIE DATA und Im GENIE 
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IMPRESSUM 

Copyright (c) 1984 by Heinz HUbbon. Offset- 
druckaral und Verlag, 5429 Marianfels /Ts. 
Nachdruck, Vervielfältigung, Übertragung so- 
wie Speicherung in EDV-Anlagen verboten. 
Bel Bauanleitungen und/oder Programmen 
kann für die Feblerfrolheit keine Garantie 
übernommen worden. 

Die Meinung der einzelnen Autoren muß 
nicht mit der des Verlages übarolnstimmon. 
Anfragen an die Redaktion bitte hur schrift- 
lich mit beigelegtem Rückporto. 

Kündigung der Abonnements: Zu Jedem Jahr, 
rechtzeitig, vor Ende des Jahres (6 Wochen). 
Jedes Abonnement verlängert sich nach Ab- 
lauf automatisch um ein Jahr. 

Sollte die GENIE DATA aus Gründen, die 
nicht In dor Verantwortung des Verlages lie- 
gen, nicht oder nicht rechtzeitig erscheinen, 
besteht kein Anspruch auf Nachlieferung. 

Für eventuelle Schäden und/oder Folgeschä- 
den an Geräten und oder Bauteilen und/odar 
Datenverlust kann keine Haftung übernom- 
men werden. Der Nachbau unserer Bauanlei- 
tungen und/oder die Anwendung von Pro- 
grammen aus der GENIE DATA erfolgt auf 
elgeno Gefahr. Alle Mitteilungen erfolgen nur 
für Amateur- und Hobby-Zwecke. Irrtum so- 


wie alle Rechte Vorbehalten. Es kann keine 
Gewähr dafür übernommen werden, daß die 
verwendeten Schaltungen, Firmennamen, Wa- 
renbezeichnungen und alle anderen Angaben 
froi von Schutzrechten Dritter sind. 

Sämtliche Veröffentlichungen erfolgen ohne 
Berücksichtigung eines evontuellan Patent- 
schutzes und/oder Gebrauchsmusterschutzes. 
Bel allen Artikel-Einsendungen gehon wir da- 
von aus, daß der Verfasser alle Rechte an der 
Einsendung besitzt, sowie geistiger Eigentü- 
mer ist. 

Ober Jede Artikel-Einsendung freuen wir uns! 
Honorar: Für Jeden gedruckten Artikel be- 
zahlen wir pro Druckseite ein Honorar von 
50,- DM. 

Wir gestatten Jedermann, olnon Artikel aus der 
GENIE DATA zu entnehmen, und In einer 
anderen, nicht kommerziellen, Druckschrift 
zu veröffentlichen, unter der Bedingung, daß 
an der Gestaltung nichts verändert wird, das 
erwähnt wird, daß dor betreffende Artikel 
aus der GENIE DATA entnommen wurde 
und daß man uns mindestens ein Exemplar 
der betreffenden Druckschrift kostenlos, so- 
fort nach Erscheinen, zur Verfügung stellt. 



VERLIES 


Das brandneue, brandheiße Comic-Spiel für alle Colour Genie Freunde. 

Moneten-Ede sammelt im unterirdischen Verliess im Schloß Schreckenstein Geldsäcke, denn die hat 
er besonders gerne. An und für sich hätte er ja das schönste Leben und könnte in aller Ruhe den 
ganzen Schatz derer von Schreckenstein klauen, wenn da nicht Hugo Hopper und seine Freunde 
wären. Hugo Hopper und seine wild gewordenen Kaninchen machen nämlich unserem Ede ganz schön 
das Leben schwer. 

Können Sie unserem Freund Ede helfen, reich zu werden? Beweisen Sie Ihr ganzes spielerisches 
Können in diesem wirklich tollen Spiel mit fantastischer Grafik und unheimlich gutem Sound ! 

Verliess — in Maschinen-Code, mit Ladegarantie, nur DM 39,-- auf Cassette. 

Übrigens: In zwei Monaten startet der Verliess-Moneten-sammel-Wettbewerb. Es gibt tolle Sachen 
zu gewinnen. Also jetzt schon kräftig üben I ! ! 


Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem: Neue und alte ROM's im Ver- 
gleich, alle Z80 Maschinenbefehle in übersichtlicher Form, Joysticks -selbst gebaut, was braucht man 
an Software, wie arbeitet man mit dem Bildschirmsteuerungs-IC, wie programmiert man den PSG 
(Programmier. Sound Generator), wie baut man Maschinenprogramme in Basicprogramme ein, alles 
mit vielen Beispielprogrammen, viel Software zum abtippen, und, und, und ... 

Das COLOUR GENIE BUCH von uns müssen Sie habenl Es bringt Ihnen viele Informationen, die Sie 
nötig brauchen. Für Anfänger und Profis I 
Nur DM 49,--. Lieferbar ab 1.8.1984 


Hier ist das Buch für alle Colour Genie Disk-Besitzer. Unter anderem finden Sie hier: 

Einteilung einer Diskette, Formate der Filetypen, der File-Controi-Block, öffnen eines Files, Initial- 
sierung, Bytes lesen und schreiben, Datensätze lesen und schreiben, Random-Acces-Routinen, Maschi- 
nenprogramm laden und starten, EOF-Werte in der Directory, Laufwerk anwählen und Laufwerk 
testen, Sektoren schreiben, prüfen und lesen, Directory-Sektor lesen und schreiben, Fehlermeldung 
ausgeben, Interrupt-Routinen einfügen und entfernen, Speichereinteilung mit Disk-Basic, Programm- 
beispiele, Kompatibilität mit Video Genie. 

Dieses Buch bringt Ihnen alles, was Sie wissen müssen um mit der Floppy vernünftig umzugehen, 
mit vielen Beispielprogrammen in Assembler. 

Nur DM 29,-. Lieferbar ab sofort! Also gleich bestellen! ! ! 

Bestellen Sie noch heute bei : Haben Sie ein gutes Programm für das Colour Genie? Egal ob Basic, 

Ralf M Hübben Maschinensprache oder compiliertl Wenden Sie sich an uns! Wir 

, u or i, n ' u^:i. ■ bieten Ihnen für ein gutes Programm ein gutes Honorar! Oder ken- 

Verlag f^ Computertechnik, nen Sie vie |, Bicht i Gru S, warum Sie sich nicht mit Ihrem 

A w S f h Hobby ein paar Mark nebenher verdienen sollen? 

Marienfels/Ts. Selbstverständlich sind wir auch daran interessiert, gute Hardware 

für das Colour Genie mit Copyrights zu kaufen I 

i iXr Schreiben Sie uns oder rufen Sie an: Telefon 06772-7828. 
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Increment und 
Decrement (8-Bit) 

INC r = r=r+T 
INC (HL) = (HL) = (HL) + 1 
' INC 

(IN + d) = (IN+d) = (IN+d) + 1 
DEC r . = r = r - 1 
DEC (HL) = (HL) = (HL) -1 
DEC 

(IN + d) = (IN+d) » (IN+d) - 1 
Increment und 
Decrement (16-Bit) 

INC ss = ss = ss + 1 
INC IN = |N - IN + 1 
DEC ss = ss — ss - 1 
DEC IN = IN = IN - 1 
So, nun genug der trockenen Auf- 
listung für heute. Jetzt schauen 
wir uns noch ein Programm an, 
das Sie bitte abtippen und aus- 
probieren. 

— Siehe Programm-Ausdruck! — 
Das Programm holt ein Zeichen 
von der Tastatur und füllt danach 
den Bildschirm mit diesem Zei- 
chen. Wenn Sie sich einmal vor- 
stellen, wie lange ein Basic-Pro- 
gramm dafür brauchen würde, 
dann erhalten Sie wieder einmal 
einen Beweis dafür, daß es sich 
lohnt, Assembler zu lernen. 

Im Ausdruck sind ja schön die 
Änderungen für Genie-Computer 
angeführt, zur Sicherheit wollen 
wir sie hier aber noch einmal 
durchgehen. 

Zeile 100 (ORG 7F00H) ist für 
Genie und Colour Genie in Ord- 
nung. 

In Zeile 110 schreiben Colour 
Genie Benutzer: 

VIDEO EQU 4400 H 
und Genie-Benutzer: 

VIDEO EQU 3C00H. 

In Zeile 120 für Colour Genie : 
LEN EQU 1000 
und für Genie: 

LEN EQU 1024. 

Was ist aber eigentlich EQU wer- 
den Sie sich sicherlich ganz zu 
recht fragen ! 

EQU ist kein Maschinenbefehl, 
sondern eine Anweisung an den 
Assembler höchstpersönlich (ein 
sogenannter Pseudo-Opcode!). 

EQU weist dem Label (also dem 
Namen) vor EQU den Wert zu, 
der hinter EQU steht. In der 
Praxis: 

In Zeile 110 wird dem Label 


VIDEO der Wert 4400H (oder 
3C00H) zugewiesen. Der Assemb- 
ler setzt nun beim Übersetzen 
überall dort, wo er VIDEO findet, 
den Wert 4400H (3C00H) ein. 

Er kann sogar noch mehr: 

In Zeile 260 berechnet er VIDEO 
+1 und setzt das Ergebnis anstelle 
von VIDEO ein (4401H oder 
3C01H). Wie man sieht, ist EQU 
also eine sehr mächtige Anwei- 
sung, denn überall, wo wir uns 
später auf VIDEO beziehen, hät- 
ten wir sonst eine Zahl einsetzen 
müssen. Da das immerhin, schon 
in unserem kurzen Programm, 
dreimal passiert (Zeilen 240, 250 
und 260) hätten wir also drei Än- 
derungen beim Übertragen des 
Programmes vom Colour Genie 
auf das Genie gehabt. Und diese 
drei Änderungen haben wir uns 
durch EQU gespart. 

Wenn Sie also programmieren, 
sollten Sie immer darauf achten, 
am Anfang des Programmes mög- 
lichst viele Konstanten (also Zah- 
len, die nicht geändert werden!) 
mit EQU zu definieren. Wenn Sie 
dann später einmal etwas ändern 
wollen, oder das Programm an ei- 
nen anderen Computer an passen 
möchten, können Sie viel Ar- 
beit sparen ! 

So, die Zeilen 100 bis 220 
müssten jetzt also klar sein. 

In Zeile 230 steht, abgesehen 
von dem Label, etwas völlig neues, 
nämlich CALL 0049 H. 

CALL ist ein neuer Befehl, 
der das gleiche bewirkt, wie 
GOSUB in Basic. Er ruft ein Un- 
terprogramm auf. Dieses Unter- 
programm muß mit dem Befehl 
RET (Return) abgeschlossen sein. 
Nach RET wird unser Programm 
mit dem nächsten Befehl nach 
CALL fortgesetzt (Siehe Bild 1). 
Beachten muß man hierbei, daß 
dieses Unterprogramm Register-In- 
halte verändern kann, die wir 
vielleicht später noch einmal brau- 
chen. 

Bei unserem Unterprogramm 
werden die Register DE und HL 
verändert, was aber für uns egal 
ist, da wir sie sowieso in den fol- 
genden Zeilen neu definieren. 

Was macht nun dieses Unter- 
programm? 


Ganz einfach! Genau das Gleiche 
wie der Basic-Befehl INKEYS. 

Es wartet bis eine Taste ge- 
drückt wird, und speichert den 
ASCII -Code der gedrückten Taste, 
im Register A (welches also 
zwangsläufig auch von der Routi- 
ne geändert wird.). 

Die Zeilen 240 bis 280 füllen 
dann in altbekannter Weise den 
Bildschirm. 

Jetzt schauen wir uns noch den 
LD IR -Befehl etwas näher an. 

LDIR tut folgendes: 

(DE) = (HL) 

HL = HL + 1 
DE = DE + 1 
BC = BC - 1 

Wenn BC größer Null, dann 
nochmal LDIR, wenn BC 
. gleich Null, dann nächster 
Befehl. 

I n Worten : 

Der Inhalt der Speicherstelle, auf 
die HL zeigt, wird in die Spei- 
cherzelle kopiert, auf die DE 
zeigt. Jetzt werden HL und DE 
um Eins weitergezählt. BC wird 
um Eins vermindert. 

Wenn BC jetzt gleich Null ist, 
wird der nächste Befehl nach 
LDIR abgearbeitet (also PC = PC 
+ 1!). Wenn BC nicht Null ist, 
wird der LDIR Befehl solange 
wiederholt, bis BC gleich Null 
ist. _ 

Noch eine Anmerkung: 
Normalerweise sollte jeder As- 
sembler einen Pseudo-Opcode wie 
EQU verstehen ! 

Wir können aber selbstverständ- 
lich nicht garantieren, daß Ihr 
Assembler das kann. Sollte das 
nicht der Fall sein, hier noch zwei 
Assembler, die es können : 

Für Genie und TRS 80: EDTASM 
von Tandy. 

Für Colour Genie: SUPER- 

ASSEM. 

Viel Spaß beim Lernen, bis zum 
nächsten Mal. 


Programm 
und Bild 
siehe 

nächste Seite ! 
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100 


ORG 

7F00H 


i io 

VIDEO 

EQU 

4400H 

; FUER COLOUR GENIE 

120 

; FUER 

GENIE 

SETZEN SIE 

ALS ZAHL 

130 

; 3COOH EIN! 



140 

; DIE 

ZEILE WUERDE DANN 

SO AUSSEHEN: 

1.50 

S VIDEO 

EQU 3C00H 


160 

5 • 




1 70 

LEN 

EQU 

1 000 

5 FUER COLOUR GENIE 

ISO 

; FUER 

GENIE 

SETZEN SIE 

ALS ZAHL; 

190 

; 1024 

EIN! 



200 

;QIE 

ZEILE WUERDE DANN 

SO AUSSEHEN 

210 

;qEN 


EQU 1 024 


220 

5 




230 

START 

CALL 

0049H 

; WARTE AUF TASTE 

240 


LD 

(VIDEO) , A 

; ZEICHEN AUF SCHIRM 

250 


LD 

HL, VIDEO 

; START VIDEO-RAM 

260 


LD 

DE, VIDEO* 1 

; NAECHSTE STELLE 

270 


LD 

BC, LEN 


280 


LDIR 



290 


L JP 

START 


300 


END 

START: 



Bild 1 : Unterprogrammspriinge 

Hauptprogramm Unterprogramm 

ORGXXXXH 

CALL XXXXH ► LD A.32H 

RET 

END 



Die kostenlose KUNDENDIENST-INFORMATION 

GENIE NACHRICHTEN 

Prsch eint von 

COMPUTER GMBH 

bei Ihrem Händler zu haben! bestell Coupon 

i Bitte, senden Sie mir kostenlos die neueste Ausgabe 

oder anfordern bei der genie-nachrjchten 

H E E L-VE R LAG | »— ;,|§I 

Postfach 320220 StraBa: 

5300 BONN 3 vi, PLZ 0rt 



tut nt.t u s/if.i.ssj; 17 tr.oo os \ i ititi t /» 

1—TELEFON 0541/588660 


Automatische Cassettenrecordersteuerung 

mit Einbauanleitung 

Colour Genie Joy Stick DM79,80 

für Splolo, dlo sonst mit der Tastatur 
gespielt werden 


SOFTWARE-KATALOG 

ANFORDERN! 


Datenrecorder-Probleme ? 

Muß nicht sein! 

Mit unserer Zusatzplatine werden die Daten digitalisiert. 

- In jedem normalen Recorder einzuschleifen ! 

Mit Einbauplan Modul DM 98, ~ 


Für die "Alten" 

Leveimeter Nachrüstsatz kompl. mit Einbau- 
anleitung DM 19,80 

Commodore VC 20 + VC 64 
Cassettemnterface Vers. 1 mit Schaltern mit Bedienungs- 
anleitung (wird nur auf den Port gesteckt). 

Für alle handelsüblichen Recorder DM 29,80 

dito Vers. 2 

mit automatischer Motorsteuerung für den Recorder. 

Mit Bedienungsanleitung DM 36,80 


Varsand: Entweder per Nachnahme oder per Vorkasso Mit Bedienungsanleitung 
auf unser Konto 66811 bei der Stadtsparkasso Osnabrück . . _ . ,, . 

[BLZ 26550001) Light Pen für C 64 in Vorbereitung ... 

Bel Bestellungen ab OM 50,— Porto und Verpackung frei. NDR-CompUtör-BaUSätZe bei Uns! 
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CUJB 8® 


Wir von der GENIE DATA freuen 
uns natürlich immer, wenn wir 
über die Gründung eines neuen 
Computer-Clubs berichten kön- 
nen. Heute möchten wir Ihnen 
einen Club für Tandy-, Genie- 
und Komtek-Computer vorstellen. 

Der CLUB 80 sieht sein Haupt- 
interessengebiet in der Arbeit mit 
F den oben genannten Computern. 
Daneben wird eine Club eigene 
Softwarebibliothek gehalten, ein 


Clubinfo herausgegeben und der 
Austausch von Erfahrungen ge- 
pflegt. 

Der Jahresbeitrag beträgt DM 20,-- 
und die einmalige Aufnahmege- 
bühr DM 10,» 

Wenden Sie sich bitte an : 

Günther Wagner, 

CLUB 80 
Gartenstraße 4 
8201 Neubeuern. 

Tel.: 08035-3361 
(nur abends!) 


Die nächste 
GENIE DATA 
erscheint am 
15. September 1984. 


Anzeigen-Annahme- 
Schluß 
ist der 

20. August 1984. 
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CHRISTOPH BEUTER 
II. Platz 


MARTIN KRAUSE 
Deutscher Meister 
im Helikopter-Punkte 
Wettkampf 


Erst einmal möchte ich mich vorstellen: Ich heiße Martin Krause, bin 14 Jahre jung und gehe 
in die 8. Klasse des Gymnasiums Hartensbüttel. - Ich sitze seit ca. einem Jahr vor meinem 
Colour Genie und verderbe mir meine Augen. Anfang dieses Jahres kaufte ich mir dann die 
Scramble-Version "HELIKOPTER 11 aus dem Software-Verlag Hübben, dem Herausgeber der 
GENIE DATA. Mein Punkterekord bei "HELIKOPTER" beträgt 111090 und ich war in der 12. 
Spielstufe. Nach all den Aufregungen und die Gefahren die ich Uberstehen mußte, bleibt tat- 
sächlich zu sagen: SUPER-HELIKOPTER ist ein sehr gutes Spiel, das auch hach längerer Zeit 
noch sehr gern gespielt wird. Es hat eine wirklich sehr gute Grafik, guter Ton und erstklassige 
Tricks wie z.B. das Scrolling und die Uhr am Anfang (worüber ich immer noch grübele). 

Unser lieber Martin Krause hat DM 100,- gewonnen und alle anderen eine Ehren-Urkunde! 

******* ***« ************** **************************************************** ********. 

Christoph Beuter, Hochdahler Str. 117, 5657 Haan 1, erzielte 96.440 Punkte, 2. Platz 
... ein Problem bereitete mir die Geschwindigkeit! 

... Alles in allem ein wirklich gelungenes Spiel! 

************************************************************************************* 


Manfred Straßer, Volkartstraße 13, 8000 München 19, erzielte 94.230 Punkte, 3. Platz. 
************************************************************************************* 

Heinz Lenhardtj Uberlingerstr. 11, 7700 Singen, erzielte 83.910 Punkte, 4. Platz. 

* **#*#*****.**************** ********************** ********************** »»»ä^*******^ 

Peter Koller, Feldstr. 47 B, 2870 Delmenhorst, erzielte 64.920 Punkte, 5. Platz. 
*************************************************************************** ; 

Monika Kehnen, Deichstraße 89, 4100 Duisburg, erzielte 50.550 Punkte, 6. Platz. 

PROGRAMMI ERER-WETTBEWERB „Mäuserennen"! 

Her stellen wir Ihnen die Sieger vor ! 

1. Platz: Norbert Muskatewitz, Hauptstraße 52, 5204 Lohmar 1 

Die Maus lief in der fantastischen Zeit von 0.14.63 Sekunden - GEWINN DM 200,--. 

2. Platz: Jochen Werno, Angermunderstraße 21, 4100 Duisburg 29 - GEWINN 1 Genie Data ABO 
Die Maus lief in der sehr guten Zeit von 0.25.99 Sekunden. 

3. Platz : Peter Steinz, Allendorfer Str. 40, 6000 Frankfurt 50 - GEWINN 1 Genie Data ABO 
Die Maus lief in der herrlichen Zeit von 0.30.60 Sekunden. 

Alle anderen Mitspieler erhalten eine Ehren-Urkunde mit Punktezahl etc. 

Die längste Maus lief 12 Minuten. Eine Maus guckte nur am Loch und verschwand wieder ! 

Es war ein Riesenspaß und wir danken allen Mitspielern nochmals herzlichst! DIE REDAKTION 
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Eine gute Nachricht für alle Co- 
lour Genie Freaks : 

Das Colour Genie kann spre- 
chen! Und zwar so: 

Tippen Sie zunächst mit einem 
Assembler (z. 8. Super-Assem) 
die drei Maschinensprache-Pro- 
gramme ein, und zwar genau in 
vorstehenden Adressen. 

Achtung: 

Falls Sie ein 16 K Colour Genie be- 
sitzen, müssen Sie die Befehle in 
Adresse 4801 H und 4901 H in 
LDHL.7FFFH 
ändern! 

Wenn Sie nun die Programme 
eingetippt haben, speichern Sie sie 
zunächst auf Cassette bzw. Dis- 
kette ab. Dann initialisieren Sie 
den Computer neu mit : 

RST + RST + R 

und laden Sie die drei Programme. 

Nun stehen Ihnen unbegrenzte 
Möglichkeiten der Sprach- und 
Sound-Erzeugung zur Verfügung. 


Nehmen Sie erst einmal Ihre 
Stimme oder Musik auf Cassette 
auf. Dann tippen Sie 
POKE &H47FF.3 
ein. Damit können Sie die Auf- 
nahme- bzw. Abspielgeschwindig- 
keit ändern (zwischen 0 und 255). 
Nun spulen Sie die Cassette zu- 
rück, wo unmittelbar Ihre Stim- 
me oder die Musik beginnt. Stel- 
len Sie den Cassetten-Recorder auf 
die größtmögliche Lautstärke, tip- 
pen Sie 
CALL 4800 

in den Computer und drücken Sie 
Play am Recorder. Nun werden 
die auf der Cassette befindlichen 
Tonsignale digitalisiert und abge- 
speichert. Nach: einiger Zeit mel- 
det sich der Rechner mit READY. 
Wenn Sie sich jetzt das vorher ge- 
speicherte wieder anhören wollen, 
tippen Sie ein : 

Sound 7,62:Sound 8,0:Sound 
0,1:Sound 1,0:0ut 248,8:Call 


4900. 

Jetzt hören Sie genau das, was Sie 
vorher aufgenommen haben, wenn 
es auch ein bißchen verzerrt klingt 
(Computer-Sound). Wenn Sie sich 
übrigens das dauernde Eintippen 
der Sound-Befehle ersparen wol- 
len, können Sie das Basic-Pro- 
gramm SPEECH eintippen, daß 
Ihnen diese lästige Tätigkeit er- 
spart. Also, los geht's! 

Ein kleiner Tip : 

Nehmen Sie Ihre Stimme mit 
Geschindigkeit 3 auf und spielen 
Sie nachher mit Geschwindigkeit 5 
wieder ab. Mit CALL 4A0Q kön- 
nen Sie übrigens direkt von Cas- 
sette auf Lautsprecher überspielen 
(Kontrollfunktion für Lautstärke- 
einstellung des Cassettenrecor- 
ders.). 

Und nun viel Spaß mit dem 
,, Quasselkopf'' Colour Genie. 


1. Digitalisierung 


4800 

d i 


4801 

Id 

hl, BFFFh 

4804 

ld 

b ,08h 

4806 

i n 

a , ( FFh ) 

4808 

bi t 

0 , a 

4 8 0 A 

j r 

z ,4810h 

480C 

nop 


480D 

scf 


480E 

jr 

4813h 

4810 

and 

a 

4811 

jr 

4813h 

4813 

rr 

(hl) 

4815 

ld 

a , <47FFh> 

4818 

dec 

a 

4819 

jr 

nz , 4818h 

48 1 B 

dec 

b : 

48 IC 

jr 

z , 4825h 

481 E 

nop 


48 1 F 

1 d 

a , ( i x +00h ) 


; Interrupts ausschalten 
; HL auf Anfang setzen 
; 8 Bits pro Byte 

; Bit von Kassette lesen 
; Kassett en-Bi t gesetzt ? 

; nein, wei t er 
; Taktausgleich 
; Carry-Flag setzen 
; weiter 

; Akku logisch und i er en 
; wei ter (Taktausgl ei ch > 

; (hl) rechts schieben 
; Zeitschleife in Akku 
; Akku dekrement i eren 
; wenn Akku>0, dann warten 
; Bit-Zähler dekr emen t i er en 
5 wenn Bi t -Zäh 1 er >0 , weiter 
$ Taktausgleich 
; Taktausgleich 
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4822 

nop 


4823 

jr 

4806h 

4825 

d ec 

hl 

4826 

1 d 

a , h 

4827 

cp 

62h 

4829 

jr 

nz , 4804h 

482B 

e i 


482C 

482F 

JP 

1 A19h 


1 

2 . Ausgabe 


4900 

d i 


4901 

1 d 

hl , BFFFh 

4904 

1 d 

b , OBh 

4906 

1 d 

c , (hl ) 

4907 

rr 

c 

4909 

jr 

c ,4910h 

490B 

nop 


490C 

1 d 

a , 00h 

490E 

j r 

4914h 

4910 

1 d 

a , OFh 

4912 

jr 

4914h 

4914 

out 

( F9h ) , a 

4916 

1 d 

a , ( 47FFh ) 

4919 

d ec 

a 

491 A 

jr 

nz ,4919h 

49 1 C 

dec 

b 

49 1 D 

jr 

z ,4925h 

49 1 F 

nop 


4920 

1 d 

a , (ix+OOh) 

4923 

jr 

4907h 

4925 

dec 

hl 

4926 

ld 

a , h 

4927 

cp 

62h 

4929 

jr 

nz , 4904h 

492B 

ei 


492C 

r et 


492D 




5. Kontrollhören 


4 A00 

di 


4 A0 1 

i n 

a , ( FFh ) 

4 A03 

b i t 

0 , a 

4 A05 

jr 

z , 4A0Fh 

4 A07 

nop 


4 A08 

ld 

a , OFh 

4 A0A 

out 

( F9h > , a 

4 A0C 

JP 

4 AO 1 h 

4 AOF 

ld 

a , 00h 

4 A 1 1 
4 A 1 4 

jp 

4 AOAh 


s Takt ausg 1 ei ch 
; weiter machen 
; HL dekrement i eren 
; ist HL 

; schon bei 6200h ? 

; wenn nein, dann weiter 
; Interrupts einschalten 
; BAS IC-Haupt ei nsprung 


Interrupts ausschalten 
HL au-f An-fang setzen 
8 Bit pro Byte 
gespeichertes Byte holen 
und nach rechts schieben 
wenn Bit=l, dann ausgeben 
; T ak t ausg 1 ei ch 

Akku au-f Null setzen 
weiter 

Akku au-f volle Lautstärke 
weiter ( Ta k t ausg 1 ei c h ) 
ausgeben 

Zeitschleife in Akku 
Akku decrementieren 
wenn Akku>0, dann warten 
Bit-Zähler dekreraentieren 
wenn B i t — Z äh 1 er >0 , weiter 
T akt ausgl eich 
T ak tausg 1 ei ch 
weiter machen 
HL dekreraentieren 
i st HL 

schon bei 6200h ? 
wenn nein, dann weiter 
Interrupts einschalten 
zurück ins BASIC 



Interrupts auschalten 

Bit von Kassette lesen 

Kassett en-Bi t gesetzt ? 

wenn nein, dann Akku=0 

Takt ausgl eich 

Akku auf volle Lautstärke 

ausgeben 

weiter machen 

Akku auf Null setzen 

weiter machen 


; 3N30 1 

9ia M3d30.1S SJ.dndd31NT i 

ra 

JdtflS 

01300 


00032 

9d0 


00300 



W0N3 


06T00 


TdWd#*6- 

9d3a 


08 T 00 


000 T / INOi+OOT /3ND1 

8d3CI 


0 £ T 00 


Str I Z+ T dWd#wZt7lr+ I d«d#* T dWdtt*8 

3d3 a 

3NO l 

09 r oo 


Td^d#* I dWd#* I dWd#*S 

3d3a 

TN01 

OST 00 


IdWd# 

odnyw 

3.1 OM 

OVTOO 




t 

* 

02100 


03 T 00 

## 

d01Wd3N39N01 


ittt i 

01 100 


OOTOO 


'uaqaßaßsne japaig-XCIV 
usp jaqn -e-o (o) idSD INlüd 

'(0) dSOd 3IW UUep pJIM aß 

-lo^uoi 3iQ qjnjjne 06 WßZ «je 
LuujBjßoJdJSjun sep Ti jjapue jv 
uoa U8M uap qaepna ueiu iuap 
-ui ’uazinusq uöö|o)uoj_ ajajqaiu 

LUUlGJßOJd-OISVQ UJÖUI3 U| UUB>j 
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-ia>jUaqoj 82 jap ui pu.is ua]t?p 
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jap ui tuiuejßojduauiqoseiAj 
sep )si uiiuejßojd-oisva wi 
aßueiuoi aip auaMz Jap 
pun aqpuuoi aip iqajag-g-jga 
31 SJ 9 jap uuiuusaq jbmz pun 
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usßunßuiAAqos aip ubuj jaßqneq 
af pun ’uoj_ jap }si jajau ojsap 
•puis uapaiqasaueM 3 !P J3ßue| ap 
sauoj_ sap zuanbajj aip os|e 'ap 


-un>jas oJd uaßunßuiMqas jap |qez 
-uv 9[P uassnpuiaaq v U0A uaqeß 
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jqiß ujujBjßojduauiqoseiAj sea 
uanais ja^aaig-XOV we Bunu 
-ueds a|p ueiu uiapui 'uaßnazja au 
-oj_ ueiu uue>) 08 Sdl UJS P ! 9 8 

■uaiaids iaq l>|9^3 sie japo 
'ßunuqaay uajaßuei jauia qoeu 
’aqeßuig uaqosiej. jauia iaq g z 
ue qais laiaiq ßunpiewuoi auig 

uaqaqosaß ßaM uaqosus 
-n>)e luap jne qone sasaip uue>| 
'||os uaqoeiu jeq>|jaujaq jazjnu 
-eg luap luiuejßcuj uia qois uubm 




8 ‘8173 xno=o 

MDaads Jitojoo,, i 


OI 0109 031 

006V Tltf3 3S13 O08tr1iy0 N3H1 I =W dl OTT 

dS ‘ I 2V8 T 3>10d 00 1 
dS‘-„ lI3>13iaNIMH3S39.,±ndNI 06 
OOWV 11WG N3H1 £=W dl 08 
09 N3Hi £<y aa o>y di s ($ü)iy/\=w oz 
09 N3H1 dl :$A3>INI=$y 09 

uNSyPHTlOyiNO» <£>..±NIdd OS 
„N333IdSay <3>„±NIdd OV 
„N3WH3Ndny < I >„lNIdd :iNIdd 02 

‘t aNnos : i ‘ o aNnos:o‘8 aNnas:39‘z aNnos oz 

I 1X3N • ■> 

(i)ayi in i dd • i dno"io3 : 9 1 oi o=i dOd:sia oi 


..Sya/H333dSn UOA Du i q.s tq-0 I SWS M? 


Viva 3IN30 ZL 


GENIE DATA 13 


DEEL 

DEND-DAfEN 

LD 

B, ZAHL/2+1 

LD 

IX, DATEN 

LÜ 

D,B 

LD 

H, (IX) ; 

LD 

L, (ix+D ; 

LD 

A,2 

LD 

E,L 

LD 

B, H 

DEC 

A 

OUT 

(255) , A 

DJNZ 

WARTEI 

LD 

B, H 

INC 

A 

OUT 

(255) , A 

DJNZ 

WARTE2 

DEC 

E 

JR 

Ni:, WIEDER 

INC 

IX 

INC ■ 

IX 

LD 

B,D 

DJNZ 
RE 1 

WEITER • 


ANZAHL DER I ÜENE 


I QNHQEHE 




JON HALTEN 


00560 


NOTE 


12 


00220 ZAHL 

00230 

00240 

00250 Wh I I ER 
00260 
00270 
00280 
00290 

00300 WIEDER 

00310 

00320 

00330 WAR JE! 
00340 
00350 
00360 
00370 WARTE2 
' / 00380 
00390 
004O0 
00410 
00420 
00430 
(| 00440 


00450 DATEN 

NOTE 

1 

00460 

NOTE 

2 

00470 

NOTE 

3 

00480 

NOTE 

4 

00490 

NOTE 

5 

0050VS 

NOTE 

6 

00510 

NOTE 

7 

00520 

NOTE 

8 

00530 

NOTE 

9 

00540 

NOTE 

10 

00550 

NOTE 

11 


00570 

NOTE 

13 

00580 

NOTE 

14 

00590 

NOTE 

15 

00600 

NOTE; 

16 

00610 

NO TE 

17 

00620 

NOTE 

18 

00630 

NOTE 

19 

00640 

NOTE 

20 

00650 DENP 

NOTE 

21 

00670 

END 

START 


10 DATA 243,6,21,221,33,40, 125,80,221, 102,0,221, 11-0, 1,62,2,93 
, 68, 61,211 ,255, 16,254, 68,60,21 1, 255, 16,254,29,32,241 
,221,35,221,35,66, 16,224,201 
20 FOR 1=32000 TO 32039: READ J: POKE I,J: NEXT I 
30 A*="AZBZCZDZEZFZGZHZIZJZKZLZMZNZOZPZQZRZSZTZUZVZWZXZYZZZ" 
40 GÜSUB 90 

50 DEFÜSR=32000 'ODER POKE 16526,0 UND POKE 16527,125 
60 I=USR (0) 

70 END' 

80 REM DAS FOLGENDE UNTERPROGRAMM INITIALISIERT DEN 
WERT VON A$ ALS DATEN FUER DIE TONROUTINE 
90 POKE 32002, LEN (AS) /2 
100 I=VARPTR(A$) 

110 POKE 32005, PEEKXI+l) 

120 POKE 32006, PEEK( 1+2) 

130 RETURN 


DATEN 


DEFB 

DEFB 


76 

247 


Hans-Ulrich Schlieben 
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Bildschirm - 

Editor 


COLOO* 

feSÄt 



DEFB 80 

DEFB 238 

DEFB 85 

DEFB 229 

DEFB 90 

DEFB 220 

DEFB 95 

DEFB 211 

DEFB 102 

DEFB 202 

DEFB 107 

DEFB 193 

DEFB 114 

DEFB 184 

DEFB 121 

DEFB 175 

DEFB 129 

DEFB 166 

DEFB 136 

DEFB 157 

DEFB 144 

DEFB 148 

DEFB 153 

DEFB 139 

DEFB 162 

DEFB 130 

DEFB 172 

DEFB 121 

DEFB 183 

DEFB 112 

DEFB 194 

DEFB 103 

DEFB 206 

DEFB 94 

DEFB 219 

DEFB 85 

DEFB 232 

DEFB 76 

DEND DEFB 246 


DEFB 67 



Das Colour Genie hat zwar einen 
guten Editor, der aber nur zeilen- 
orientiert ist. Da ich meistens 
am Apple arbeite, und es für ihn 
viele Editoren zum Nachladen 
gibt, habe ich mich entschlos- 
sen, für den CG einen Bildschirm- 
editor zu schreiben. Der Editor 
ist so geschrieben, daß er die nor- 
male Tastenbelegung beibehält. Er 
wird gestartet, indem man die 
BREAK- u. die E- Taste zusam- 
men drückt. Jetzt erscheint 
ein SHIFT-3 als Cursor mit den 


Tasten I, J, K, M bewegen kann. 
Wenn man eine andere als die vier 
Tasten drückt kommt man wieder 
in den Eingabemodus. Mit den 
Pfeiltasten nach rechts oder links 
kann man eingeben oder löschen. 
Schreibt man normal, so wird der 
Text übernommen. Mit RETURN 
wird die Eingabe abgeschlossen. 
Mit BREAK kann der Editor ver- 
lassen werden, ohne etwas zu ver- 
ändern. 

Nun noch eine Programmbe- 
schreibung; 


10-20 Vektor fuer Autostart 
30-40 Meldung waehrend des Ladens 
50 ORG muss 3F0H unter RAMende sein 
60-150 Text bei der Fertigmeldung ' * 
160-180 Start bei Break 
190-330 Neuinitialisierung des Basics 
340-490 Abfrage ob E gedrueckt ist 
500-560 Ruecksprung zum Basic 
570-790 # Cursororqani sat i on 
800-860 Organisation von Parametern 
870-940 Loeschen des normalen Cursors 
950-1040 Anlegen des I/O-Buffers 
1050-1280 Hauptroutine Tastaturabf rage 
1290-1360 Abfrage fuer Scrollen und 
die Laenge des Buffers 

1370-1530 Zeichen in Buffer schreiben 
1540-1670 Bi 1 dschi rmscrol 1 en und 
Cursoraddresse korrigieren 
1680-1710 Zeichen von Bildschirm in 
Buffer schreiben 

1720-1930 Zeichen aus Buffer loeschen 
1940-2050 Cursorsteuer Hauptroutine 
2060-2510 Steuerroutine fuer den Cursor 
2520—2620 Uebergabe der Zeile ans Basic 
2630-2910 Ausgabe von CHR$(10> 

2920-3470 Ausgabe der Sondertasten- 
belegung auf dem Bildschirm 


Viel spass beim editieren 


10 

ORG 41E2H 


20 

JP INIT 


30 

ORG 4400H 


33 

DEFM "Bitte warten. 

der Editor" 

35 

DEFM " wird geladen.*#- 

— — — " ; 

37 

/JA 

DEFM " " 

nccM »• 


•frv 

50 

UtrPl — - 

ORG 0BC10H 


60 TEXTBE DEFM "Bildschirmeditor (C) von" 

70 

DEFB 10 


80 

DEFB 10 


90 

DEFM "H-U Schl i eben 

ll 

100 

DEFB 10' 


110 

DEFB 10 


120 

DEFM "Januar 1984" 


130 

DEFB 10 


140 

DEFW 10 


150 

NOP 


160 

INIT LD HL, 400CH 


170 

LD (HL), 195 


180 

LD HL, ANFANG 


190 

LD (400DH) , HL 


200 

LD A, 201 


210 

LD (41E2H) , A 


220 

CALL 01C9H 


230 

LD HL, TEXTBE 


240 

CALL 28A7H 


250 

LD HL, ANFANG 


260 

LD DE, OFFFOH 


270 

ADD HL, DE 


280 

LD DE, OFFCEH 


290 

LD (40B1H) , HL 

, & \ R | 

300 

ADD HL, DE 


310 

LD (40A0H) , HL 


320 

CALL 1B4DH 


. 330 

JP 1A19H 


340 

ANFANG PUSH AF 


350 

PUSH BC 


360 

PUSH DE 


370 

PUSH IX 


380 

PUSH IY 


390 

PUSH HL 


400 

LD A, (0F801H) 


410 

BIT 5., A 


420 

JP NZ, BEGIN 


430 

POP HL 


440 

POP IY 


450 

POP IX 


460 

POP DE 


470 

POP BC 


480 

POP AF 


490 

RET 


500 

FINISH POP HL 


, 510 

POP IY 


520 

POP IX 


530 

POP DE 


540 

POP BC 


550 

POP AF 


560 

JP 66H 


570 

CHANGE PUSH AF 
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580 PUSH HL 

590 LD HL, (4020H) 

600 LD A, (HL) 

610 CP 35 

620 JR Z, BACKOO 

630 LD ( IX+1 ) , A 

640 LD (HL), 35 

650 BACKOO POP HL 

660 POP AF 

670 RET 

680 LAWERT LD A, (IX+l) 
690 LD (HL) , A 

700 JR BACKOO 

710 RESTAU PUSH AF 
720 PUSH HL 

730 LD HL, (4020H) 

740 LD A, (IX+1) 

750 CP 35 

760 JP Z , BACKOO 

770 LD (HL) , A 

780 LD (IX+1) ,35 

790 JR BACKOO 

800 BEGIN LD IX,0BC18H 
810 XOR A 

820 LD ( IX+O) , A 

830 LD (IX+1), 35 

840 CALL CHANGE 

850 CALL CURSOR 

860 JR WEIT01 

870 CURSOR LD A, (16410) 
880 PUSH AF 

890 LD A, 32 


900 

LD 

( 16410), A 

910 

CALL 305FH 

920 

POP 

AF 

930 

LD 

(16410) , A 

940 

RET 


950 WEIT01 LD HL, 16872 

960 

LD 

(HL) ,32 

970 

INC 

HL 

980 

LD 

(HL) ,32 

990 

INC 

HL 

1000 

LD 

(HL) ,32 

1010 

LD 

( I X+2) , L 

1020 

LD 

( I X+3) , H 

1030 

LD 

BC , 2000H 

1040 

CALL 60H 

1050 

HAUPT CALL 49H 

1060 

LD 

IX, 0BC18H 

1070 

CP 

31 - 

1080 

JP 

Z, MOVE 

1090 

CP 

1 

1 100 

JP 

Z, FINISH 

1 1 10 

CP 

13 

1120 

JP 

Z, TAKE IT 

1130 

CP 

10 

1140 

JP 

Z, DOWNF'F 

1150 

CP 

8 

1 160 

JP 

Z , 60H0ME 

1170 

CP 

9 : ' 
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1780 . RST-18H ^ 

1790 JP Z 5 HAUPT 

1800 LD A, CIX+0)/ . 0 

1810 DEC A ( 

1820 LD (IX+0) ,fi V ü _ 

1830 LD L, (IX+2) 

1840 LD H, (IX+3) 

1850 DEC HL 

1860 LD ( IX+3) , H 

1870 LD ( I X+2) , L 

1880 /CALL REST AU 
1890 LD HL, (4020H) 

1 900 DEC HL 

1910 LD ( 4020H) , HL 

1920 CALL CHANGE 

1930 JP HAUPT 

1940 MD VE CALL 49H 

1950 LD I X , 0BC18H 

1960 CALL REST AU 

1970 CP 73 

1980 JR Z , HOCH 

1990 CP 74 

2000 JR Z, LINKS 

2010 CP 75 

2020 JR Z, RECHTS 

2030 CP 77 

2040 JR Z, RUNTER 

2050 JP HAUPT 

2060 HOCH LD HL, (4020H) 

2070 LD DE, 0FFD8H 

2080 ADD HL, DE 

2090 LD, A, H 

2100 CP 67 

2110 JR Z, MALEN 

2120 LD HL, C4020H ) 

2130 LD DE, 0FFD8H 

2140 ADD HL, DE 

2150 JR OKAY 

2160 RUNTER LD HL, (4020H) 

2170 LD A , H 

2180 CP 71 

2190 JR NZ, WEIT03 

2200 LD A,L 

2210, CP 128 

2220 JP M, WEIT03 

2230 CP 192 

2240 JP P, MALEN 

2250 WEIT 03 LD HL,- (4020H) 

2260 LD DE, 40 

2270 ADD HL, DE 

2280 : JR OKAY 

2290 RECHTS LD HL, (4020H) 

2300 LD A,H 

2310 CP 71 

2320 JR NZ, WEIT02 

2330 LD A,L 

2340 CP 231 

2350 JR Z, MALEN 

2360 WE IT 02 NOP 

2370 LD HL, (4020H) 


1180 JR Z , GOCHAR 

1190 BIT 7, A 

1200 JR NZ , RRINT 

1210 CP 32 

1220 JP M, HAUPT 

1230 CP 92 

1240 JP M, RRINT 

1250 CP 96 

1260 JP M, Fl MAL 

1270 CP 124 

1280 JP P, F5MAL 

1290 RRINT LD (IX+4) , A 
1300 LD A , ( I X+0) 

1310 CP 235 

1320 JR Z, HAUPT 

1330 LD HL, ( 4020H) 

1340 LD DE, 18407 

1350 RST 18H 

1360 CALL Z , SCROLL 

1370 LD A, ( I X+0) 

1380 INC A 

1390 LD ( I X+0) , A 

1400 LD A, (IX+4) 

1410 LD L, (IX+2) 

1420 LD H, (IX+3) 

1430 LD (HL) , A 

1440 INC HL 

1450 LD ( IX+2) , L 

1460 LD (IX+3) , H 

1470 LD HL, ( 4020H ) 

1480 LD ( I X+ 1 ) , 35 

1490 LD (HL) , A 

1500 INC HL 

1510 LD ( 4020H) , HL 

1520 CALL CHANGE 

1530 JR HAUPT 

1540 SCROLL LD HL, 17448 
1550 LD DE, 17408 

1560 LD BC, 999 

1570 LD IR 

1580 LD B, 40 

1590 LD HL, 18368 

1600 LOOPOO LD (HL) ,32 

1610 INC HL 

1620 DJNZ LOOPOO 

1630 LD HL, ( 4020H) 

1640 LD DE, 0FFD8H 

1650 ADD HL, DE 

1660 LD (4020H) , HL 

1670 RET 

1680 GOCHAR CALL REST AU 
1690 LD HL, (4020H) 

1700 LD A, (HL) 

1710 JR RRINT 

1720 GOHOME NOP 

1730 LD A, (IX+O) 

1740 CP O 

1750 JP Z, HAUPT 

1760 LD HL, (4020H) 

1770 LD DE, 17408 


TRS 80 Pgm. -Tauschliste an 
W.Nimzik, 

19, 4047 Dormagen 5 


LUMOPRINT ZnO-Kopierer 
m. reicht . Material v. Priv. 
VB 333,-! 

Tel. 040-6917601 


COLOUR GENIE CENT! 
PEQE 25,-DM, Cass. 
H.Kristen, Haunspergerstr. 
11 , 8229 Laufen 


COLOUR Genie-Software 
INV + Pac + Firebird + 
Kong u.v.mehr wegen Auf- 
gabe zu verkaufen. 19DM 
unter NP. Info 
g. Rückporto bei: 

Dirk Besemer.Blumenring 
16, 6301 Heuchelheim. 


COLOUR Genie; Full- 
Screen-Editor, Mathepakete, 
Utilities; FX 70ZP:Schach, 
Sonderzeichen etc. Liste 

50Pf. 

Harald Czech .WEN 8200 
0431, Danckelmannstr.46/ 
47, 1000 Berlin 19 


SUCHE für Colour Genie 
günstig Diskettenlaufwerk. 
Suche Softw. f. serielle 
Schnittstelle (Drucker/Mo- 
dem). 

Tel. 07053-6074 


COLOUR Geniel Software! 
Genie Data Abo. VB 390,- 
DM, Tel.06674-535 


COLOUR Genie-Software 
Info-Tausch; 4-Farb-Plotter 
Printer DM 500,- 
Tel. 0228-484256 


COLOUR Genie. Suche 
FORTRAN-77-o.ä. 

J. Kieser,Marienstr.4 
7107 Bad Fr'hall 


COLOUR Genie + HP 41 
Progr. -Tausch Liste an: 
Christa Burmann 
Karl-Arnold-Str. 1 
4630 Bochum 6 


VERKAUFE Colour Genie 
mit 32 K-Erweiterung und 
Gässettenrecorder + Softwa- 
re t Bücher für DM 900,-- 
Andreas Szekely, Bergho- 
ferstr. 15, 4600 Dortmund 
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2380 

INC HL 

2930 

LD B,A 

2390 

J R OKAY 

2940 

ADD A, A 

2400 

LINKS LD HL, <4020H) 

2950 

LD C , A 

2410 

DEC HL 

2960 

ADD A, A 

2420 

LD A, H 

2970 

ADD A,C 

2430 

CP 67 

2980 

ADD A, B 

2440 

JR Z, MALEN 

2990 

LD B.A 

2450 

LD HL, ( 4020H) 

3000 

LD A, (IX+O) 

2460 

DEC HL 

3010 

CP 128 

2470 

OKAY LD <402pH),HL 

3020 

JP M, WEIT05 

2480 

CALL CHANGE 

3030 

CP 229 

2490 

JP MQVE 

3040 

JP P, HAUPT 

2500 

MALEN CALL CHANGE 

3050 

WEIT05 PUSH BC 

2510 

JP MOVE 

3060 

LD HL, ( 4020H ) 

2520 

TAKEPE LD (4020H),DE 

3070 

LD A,H 

2530 

TAKE I T LD I X, OBC 1 SH 

3080 

CP 71 

2540 

CALL RESTAU 

3090 

JR NZ , WEIT06 

2550 

LD H, (IX+3) 

3100 

LD A, L 

2560 

LD L, (IX+2) 

3110 

CP 128 

2570 

LD (HL) , 0 

3120 

JP M , WE I T 06 

2580 

LD A, 13 

3130 

CP 224 

2590 

CALL 33H 

3140 

CALL P, SCROLL 

2600 

LD HL, 16872 

3150 

WEIT06 POP BC 

2610 

CALL 1A81H 

3160 

LD C,B 

2620 

JP 66H 

3170 

LD B, 0 

2630 

DOWNPF LD A, (IX+O) 

3180 

LD HL, 17232 

2640 

CP 235 

3190 

ADD HL , BC 

2650 

JP Z, HAUPT 

3200 

PUSH HL 

2660 

LD HL, (4020H) 

3210 

CALL RESTAU 

2670 

LD A, H 

3220 

LD D. (IX+3) 

2680 

CP 71 

3230 

LD E, (IX+2) 

2690 

JR NZ.WEIT04 

3240 

POP HL 

2700 

LD A, L 

3250 

PUSH HL . 

2710 

CP 128 

3260 

LD BC, 7 

2720 

JP M, WEIT04 

3270 

LDIR 

2730 

CP 192 

3280 

LD (IX+2) ,E 

2740 

CALL P, SCROLL 

3290 

LD ( I X+3) , D 

2750 

WEIT04 CALL RESTAU 

i 3300 

LD B, 7 

2760 

LD A, 10 

3310 

LD DE, (4Ö20H) 

2770 

CALL 33H 

3320 

POP HL 

2777 

CALL CURSOR 

3330 

LD A, (IX+O) 

2780 

LD IX , 0BC18H 

3340 

ADD A, 7 

2790 

LD A, (IX+O) 

3350 

LD (IX+O) , A 

2800 

INC A 

3360 

LD (IX+1), 35 

2810 

LD (IX+O) , A 

3370 

L00P02 LD A, (HL) 

2820 

LDH, (IX+3) 

3380 

CP 0 

2830 

LD L, (IX+2) 

3390 

JP Z, TAKEPE 

2840 

LD (HL) ,10 

3400 

LD (DE) , A 

2850 

INC HL 

3410 

INC HL 

2860 

LD (IX+3) ,H 

3420 

INC DE 

2870 

LD (IX+2) ,L 

3430 

DJNZ L0QP02 

2880 

LD (IX+1) ,35 

3440 

LD (4020H) , DE 

2890 

CALL CHANGE 

3450 

CALL CHANGE 

2900 

JP HAUPT 

3460 

JP HAUPT 

2910 

2920 

Fl MAL AND 3 

F5MAL AND 7 />oLOV)R 

^ 3470 

; 

END INIT 


SUCHE (Colour) Genie 
Club oder Nutzer im Groß- 
raum München 
Tel. 08142-9880 


TIC-TAC 3D das absolute 
Logicspiel für CG, 20,-DM 
Tel. 02352-3580 


SUCHE für Colour Genie 

Software z. Programmieren 

d. seriellen Schnittstelle und 

ein Hardcopiy-Programm für i 

Epson compertiblen Druk- 

ker u. ein Pascal-Compiler. 

Tel. 05341-62458. ; | 


CG erweitern auf 44 K 
RAM Schaltung DM 10,- 
W. Ott, Reb. Kochweg 15, 
7988 Wangen 


VERKAUFE VG 3003 m. 
48K RAM, L IV Vers.2.3 
M.Reimann,Postf.8373, 
6110 Dieburg 2,Tel.06071 - 
288373 


COLOUR GENIE 
SOFT - SUPBAS - 
Info 80 Pf. M. Maiers 
Am Hang 1,2352 Bordes- 
holm 


SUCHE CG. -Floppy 
Jürgen Aichele^Jusistr.3 
7302 Ostfildern 


SUCHE alle Druckerprogr. 
für Star DP510 + Gemini 
lOx, Delta 10,FX80,MX80 
auf CG 32K. 

Tel. 0228-224353 Winter- 

scheid.Bennauerstr.1 ,5300 
Bonn 1 


SUCHE für Colour Genie 
Diskettenstation mit 1LW 
Tel. 0202-700851 


TAUSCHE CG. -Software 
P. Bluhm, Anthurienwegll 
4700 Hamm 4 


TAUSCHE VG -Programme 
(300) Iris Otten, Hermann- 
Ost-Str. 16, 5000 Köln80 


SUCHE guten Progr.-Tausch 
Partner, Horst Brodowski, 
Gördelerstr. 7, 5657 Haan, 
Tel. 02129-4891 


CG-Software-Tausch. Habe 
Super-Programmel Liste an: 
Herbert Labusch, Finkenra- 
therweg 50, 5120 Herzogen- 
rath/Hofstadt. 

Kein Telefon I 
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Portable Computer gibt es ja zwi- 
schenzeitlich schon eine ganze 
Menge. Das nun Tandy mit dem 
Modell 100 auf den Markt gekom- 
men ist, haben wir zum Anlaß 
genommen, diesen Portable für 
Sie zu testen. 

Zur Verfügung gestellt wurde 
uns das Testgerät freundlicherwei- 
se von der Firma cc Computer 
Studio GmbH, Elisabethstraße 5, 
4600 Dortmund 1, die auch be- 
absichtigt, ein Buch zum Modell 
100 auf den Markt zu bringen. 

Wir waren natürlich gespannt, 
was der Kleine für runde 15 
Hunderter alles zu bieten hat. 

Nach dem Auspacken kam die 
erste Enttäuschung. Während man 
schon bei einigen Taschenrechnern 
Akkus und Ladegerät mitbe- 
kommt, ist das beim Modell 100 
nicht der Fall. Wenn man sich 
den: Modell 100 so anschaut, 
sieht man schnell auf der rechten 
Seite des Gehäuses den Anschluß 
für ein externes Netzgerät. 

Aber auch das liegt der Packung 
nicht bei ! 

Also, man hat den Computer, 
aber keinen Strom und sooft 
man auch am „ON-OFF" Schal- 
ter knipst, nichts rührt sich I 

Jeder der schon mal kurz vor 
Ladenschluß im Regen losgegan- 
gen ist, Batterien kaufen, kann 
sich das Nachfolgende vorstellen. 

Nachdem die Batterien besorgt 
waren, fiel mir beim Einlegen 
unten am Gehäuse ein weiterer 
,, ON-OFF" Schalter auf. Dieser 
ist bestimmt, um die Stromver- 
sorgung der Speicherbausteine an 
oder aus zu schalten. Im Klar- 
text: Eingegebene Daten oder Pro- 
gramme vergißt der Tandy nur, 
wenn man hier ausschaltet, oder 
wenn die Batterien leer sind. 

Jetzt zeigte auch das Einschal- 
ten Erfolg ! Der Computer- melde- 


te sich mit: eingegeben. 

,,01 Jan, 1900 Sun 18:30:00", Und diese Tastatur ist wirk- 

und die Uhrzeit lief. lieh Klasse! 

Unter dieser Kopfzeile befindet Neben den gewohnten Zeichen 
sich eine Auswahlliste mit bereits bietet sie in Verbindung mit der 
vorhandenen Programmen. GRPH-Taste eine Vielzahl von 

Diese Programme sind unter an- Sonderzeichen und Symbolen, 
derem der Basic-Interpreter, ein und mit der NUM-Taste kann man 
Textverarbeitungsprogramm, eine ein Teilfeld auf nummerische Ta- 
Adreß- Verwaltung und ein . Tele- Statur umschalten. 
kommunikations-Programm. Die einzelnen Tasten sind 

Programme also, für die man bei schwarz, mit weißer Beschriftung, 
den meisten anderen Rechnern so daß sich alles gut erkennen 
schon mehr hinblättern muß, als läßt. 

hier der ganze Computer kostet. Über der normalen Tastatur fin- 
Und da die Programme von Micro- det man noch eine Tastenreihe mit 
soft stammen, erhält man hier acht Funktionstasten, die selbst 
Software Güteklasse 1a! definiert werden können, vier vor- 

Jedes dieser Programme wird definierte Funktionstasten und 
gestartet, indem man den Cur- vier Cursorsteuertasten, 
sor auf den Namen setzt und Ein Reset-Taster befindet sich 
ENTER tippt. hinten am Gehäuse, dadurch wird 

Nach dem Einschalten kommt die versehentliche Betätigung na- 
man also mit einmal ENTER zum hezu ausgeschlossen. 

Basic. Wenn man nun darangehen will, 

Von den 5062 Bytes, bei un- ein Programm zu schreiben, wird 
serem Testgerät, bleiben im Ba- man auch irgendwann einmal zum 
sic noch 4806 frei. Handbuch greifen. 

Übrigens : Auch das Basic Dann hat man die Auswahl zwi- 

stammt von Microsoft. sehen einem sehr gut gemachten 

Der Cursor blinkt, es kann Englischen und einem lächerlichen 
losgehen! : v Deutschen. 

Wenn man jetzt ein wenig Warum lächerlich? Ganz einfach: 
tippt, kommt die erste ange- Wie es den Anschein hat, wurde 
nehme Überraschung. das deutsche Handbuch irgendwo 

Jedes Zeichen, das auf dem 40 in Japan von irgendjemandem ge- 
mal 8 LCD-Display erscheint, wird schrieben, der selbst des Deut- 
über die hervorragende Tastatur sehen nicht ganz mächtig war. 
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Herr W. Ottenweller, Robert-Koch-Weg 15, 7988 Wangen, Colour Genie j 
Hardwareerweiterungen, Forth, Lisp, Tips. j 


Herr Heinrich C. Huhn, Hauptstraße 26, 2822 Schwanewede 1 , Genie 1 1 
Energieelektronik (Stromrichtersimulation). 


Herr Markus Blanchbarbe, Brunnenstraße 25,6639 Fremersdorf, Colour . 
Genie, Erfahrungsaustausch, 


Herr Erich Dreier, Maximilianstraße 4, 8034 Gern c ug, Colour Genie 
Erfahrungsaustausch 


Herr Roman Augustin. Reitberg 70, A-5301 Eugendorf, Colour Genie 
PSG und CRTC 


Herr Jürgen Schietter, Stollengässle 10, 7265 Neubulach 2, Tel.: 07053/ • 

6074, Colour Genie, Datenfernübertragung. 


Man findet also Bezeichnungen 
wie z. B. : RS 232 Hafen. 

Mit Hafen ist Port gemeint ! 

Wenn man mit dem Modell 100 
arbeitet, sollte man sich an das 
englische Handbuch halten, viel- 
leicht schafft ja auch das Buch der 
Fa. cc Computer hier Abhilfe. 

Jetzt aber zur Kernfrage; Wozu 
kann man den Tandy einsetzen? 

Natürlich ist er verwendbar, wie 
jeder andere Computer aych, für 
Spiele, um programmieren, zu ler- 
nen, oder was einem sonst hoch so 
alleseinfällt. 

Daneben zeichnet er sich aber 
durch seine Mobilität aus. Man 
kann den Tandy überall mitneh- 
men. Wenn man z. B. Unterwegs 
ist, vielleicht bei einem Kunden, 
tippt man mit Hilfe von TEXT 
(demTextverarbeitungsprogramm) 
die Bestellung ein, und gibt sie 
dann mit TELCOM per Modem 
nach Hause zum GENIE 16, 
odereinem anderen „Großen". 

Für wen ist Tandy 's Modell 100 
zu empfehlen? 

Vor allem für Leute, die gerne 
Flexibel sein wollen, dann aber 
auch für Anfänger, die sich erst 
einmal einarbeiten möchten, und 
selbstverständlich für die vielen 
Computerfreaks. 


■ Sie 4’ 1 ® 


aWV-art® 




Abonnieren - 
Profitieren 4 


I IVIIMWI Wl I T 

Sie können als Abonnent bei jeder Ausgabe drei Zei- 
len KOSTENLOS inserieren!!! - Ferner erhalten Sie 
zusätzlich kostenlos unsere 

« GROSSE PR OGRAM M - SAMMLUNG 
MIT VIELEN GENIE 1,11, lll,TRS80 u nd 
COLOUR GENIE PROGRAMMEN!!! 

Sichern Sie sich diese tolle PROGRAMM-SAMMLUNG 




Hier sind also die ersten „Leser-sucht- Leser" Kontakt-Adressen. 

Wenn Sie sich auch an dieser Aktion beteiligen wollen, schreiben Sie uns 
eine Postkarte mit Ihrer vollen Anschrift und Ihrem Haupt-Interessen- 
Gebiet. Diese Karte senden Sie an: Firma Heinz Hübben, Verlag, Kenn- 
wort Leser sucht Leser, Mühlbachstraße 2, 5429 Marienfels. 

Die Veröffentlichung ist für alle GENIE DATA ABONNENTEN 
Also, machen Sie mit! KOSTENLOS ! ! ! 


Herr Rolf Kilian, 'Meierwiesen 2, 3000 Hannover 5.1, Colour Genie Tape/ 
Disk. 


+ 

+ 

+ 

+ 


Eingebaute Software 
Gute Tastatur 
Schnittstellen 
Komfortables Basic 
Fehlende Akkus 
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Philip Erdös 


CRTC-Tricks 


COV-OOB 

geh'* 


Haben Sie sich auch schon darüber ner dann zu Bildjist. Das Basic- 
geärgert, daß das Colour Genie Programm legt die Maschinenbe- 
beäm Listen nach einer Seite nicht fehle in den Datazeilen im Ram- 
anhält? Wenn ja, dann haben Sie bereich ab ; 403 EH ab. DOS 
jetzt ein kleines Hilfsprogramm, Besitzer müssten sich dieses Pro- 
weiches beim Listen nur eine Bild- ‘gramm in einen anderen Bereich 
schirmseite ausschreibt und dann ab legen, da der genutzte Bereich 
mit dem Druck einer beliebigen vom DOS belegt ist. Vor dem Star- 
Taste wieder fortsetzt. Dieser Ein- ten eines Basicprogrammes sollte 
griff ist möglich, da die Listan- man Bildlist ausschalten. 

Weisung auch auf den Rambereich Einschalten : Poke 16863,195 
zugreift. Mit Hilfe eines eingepok- Poke 16864, 62:Poke 16865,64 
ten Sprunges verzweigt der Rech- Ausschalten: Poke 16863,201 
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Bildlist 


COt-OU* 


Ulrich Groke 





Mogeln 


Da dieses Programm sich selbst 
erklärt, ist eine Erläuterung nicht 
notwendig! 


10 LGR: CLSs KE=32 

20 DIM K (32) » Kl (32) , L (32) > NS (4, 8) ? MS (4, 8) , LS (8) , KZ (32) , LC (4) » MC (4, 8) 

30 A1$=CHR$ (177) +CHR* (181) +CHR$ (181) +CHR* (181) +CHR* (181) +CHR$ (181) +CHR 
$ ( 181 ) +CHR$ ( 178) 

40 A2*=CHR$ (179) +CHR* ( 182) +CHR$ ( 1B2) +CHR* ( 182) +CHR* ( 182) +CHR$ < 182) +GHR 
$(1B2)+CHR*(180) 

50 FORI -0TD39 SPRINT® I, "■":NEXTI 
&0 F0RI=880T0919sPRlNT@I. J "■"? sNEXTI 
70 F0RI=79T0879 STEP40: F'RINT@I , 5 : NEXTI 

80 PRINT@200, M " 

100 PRINT“ fl fl fl 'l ■ fl fl^ fl» 

110 PRINT" ■ t Mm um u u u %■' 

120 print" ■ ■ ■ ■ ■ im mmr m u w 

130 PRINT" * ■ ■ ■■ ■ ■ ■ ■ ■" 

140 PRINT" ■ ■flflflflfl ■ ■■» 

160 PRINT SPRINT SPRINT" geschr. von U. Groke 516 Dueren" 

170 PRINTSPRINT" Klopfen = Druecken der 0" 

180 F0RI=40T0840STEP40:PRINT@I NEXTI 
190 G0SUB2460 - 

200 GDSUB1670 

2 1 0 GDSUB220 : G0SUB250 : G0T0290 ^ 

220 A1=0: FORI = lT04s FÜR J=1 TOB / °0 

230 A1=A1+1 s Kl (Al ) =I>h10+J 4 Oj^O/. ^ 

240 NEXT J » I s RETURN V J 

250 F0RI = 1T0KE 

260 A2=RND(32) : IFK1 (A2)=0 THEN 260 

270 K ( I > =K1 (A2> s Kl (A2) =0 

280 NEXTI s RETURN 

290 FORI =1 TO 16 

300 L(I)=ls NEXTI 
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310 CLS 

320 FDRI=17T032 
330 L (1)«-1 SNEXTZ 
340 GDSUB450 

350 LS < 1 ) =0: LS (2) =0s LS (3) =0: LS (4) =0 
360 F0RI-1T032 
370 IF L ( I ) < 1 THEN 420 

380 IF INT ( K ( I ) / 1 0 > =1 THEN LS ( 1 ) =LS ( 1 ) + 1 : NS ( 1 . LS ( 1 ) > =-2+3*LS < 1 ) s MB U * L 
S (1) )=K(I ) :P1=NSC1.LS<1> ) : G0SUB1640: B=MS <1,LS( 1 > ) :P-P1-B3» B0SUB1460: LI 
( 1 s LS < 1 ) ) - 1 s G0T0420 

390 IF INT CK ( I) /10) =2 THEN LS (2> =LS (2) +1 S NS (2=. LS (2) ) =23B+3*LS (2) : MS (2, 
LS (2) >=K ( I ) SP1=NS (2.- LS (2) ) : G0SUB1660: B=MS (2. LS <2> > : F-P.t-83: G0SUB1460: L 
1 (2? LS (2) ) =1 ! G0T0420 

400 IF INT (K(I)/10)=3 THEN LS (3) »LS (3> +1 : NS (3, LS (3) ) =478+3* LS < 3 > : MS (-3, 
LS (3) ) =K ( I) : P1=NS (3, LS (3) > : G0SUB1630: B=MS (3, LS (3) ) : P=P,t-B3: G0SUB1460SL 
1 <3.LS<3) ) ==I : G0T0420 

410 IF I NT ( K < I ) / 1 0 ) =4 THEN LS ( 4 ) =LS (4) +1 : NS (4? LS (4) ) =71 8+3*LS (4) : MS (4 . 
LS (4) >=K(I> :P1=NS(4, LS (4) ) : G05UB1650: B=MS (4, LS (4) ) : P=Pl-B3s GGSUB1460: L 
1 (4,LS<4> )=l:GDT0420 
420 NEXTI 

430 PRINT® lp6> ”= 1": PRINTS346, "= 2" : PRINT@586. "= 3" S PRINT@826 ? "= 4” 

440 P=30* G0SUB1500: GQT0550 

450 FR I NTS5 1 0 . " " : PRINTÖ590? " " s PR I NT067O , " " : P 

RINTS750, " 

460 L5=0: FORI =1TÜ32 
470 IF L (I > =-l THEN L5=L5+1 
480 NEXTI 

490 C0L0UR4 : FOR I = 1 T0L5 
500 IF I<9 ' THENPRINTS509+I » " 5 

510 IF I>8 AND I<17 THEN PRINT@581+I , u « " S 
520 IF I>16 AND I<25 THEN PRINT0653+L 
530 IF I >24 THEN PRINTH725+I . "I " ? 

540 NEXTI: RETURN 
550 G0T0740 

560 C0LDUR4:PRINT@920, " Dein Zu? 

' 570 FF=PEEK ( - 1 985 ) 

580 IF FF< 1 OR FF>16 THEN 570 
590 IF FF=2 THEN MZ=1:G0T0 650 

600 IF FF=4 THEN MZ=2:G0TD 650 

610 IF FF=B THEN MZ=3:G0T0 650 

620 IF FF=16THEN MZ=4:G0TD 650 

630 IF FF=1 THEN 860 

640 G0T0570 

650 G0SUB2510: IF LS(MZ)=0 THEN 55 
660 L(L1 (MZ.LS(MZ) > >=0 

670 P3=NS (MZjLS(MZ) ) sPRI NT@P3 , " " s PRINTSP3+40, *• 11 : PRINTGP3+80. " “:P 

RINTHP3+120? " " : PR I NTSP3+ 1 60 . 11 " 

680 IF ZY=0 THEN ZZ»MZ 
690 ZY=ZY+l:KZ(ZY)=MS(MZ,LS(MZ>) 

700 LS (MZ > =LS <MZ ) -1 
710 PRINT@112.ZY 

720 Pi=233: QN ZZ GOSUB 1640.1660.1630.1650 
730 G0T0940 
740 U1=0: U2=0 
750 FORI=1T032 
760 IFLCDOl THEN U1=U1+1 
770 I FL < I ) < >— 1 THEN U2=U2+1 
780 NEXTI 

790 IFU 1=32 THEN PRTNTÖ920, "Du hast gewonnen ! " ; : GOT 




0820 . ' 

800 IFU2=32 THEN PRINTS920, " Ich habe gewonnen ! " ’ : GOT 

. 0320 

S10 G0T0560 

820 T 1 $= I NKE Y$ s,FQR T— 1 Töi 000* NEXT I 

830 PRINTS920? "Neues Spiel - Leertaste drueken "5 • 

840 T** INKEY* si FT**" "THEN840 

850 G0T021Ö /I 

860 F0RI=1T03 

370 G0SUB2420: FQRJ=slTOIOOs NEXTJ I 

880 NEXTI:P=305R=KZ (ZY) S80SUB1440 

890 IF INT (KZ (ZY)/10)=ZZ THEN 920 ^ 

900 F0RI = 1TÖ32« IF L, ( I ) =0THEN L ( I > =— 1 

910 NEJ,(Tls PRINTts920? "Da hast du mich beim Mogeln erwi seht " ; : FClRI = lT050 
0: NEXT [ s ZY=Oi P=30: 60SUB150Q* ÖGT0940 
920 F0RI=lT032i IF L ( I > =0 THEN L(I)=1 

930 NEXTI s PRINT@92ü» " Ich mogele doch nicht ’ " s : F0RI-1T050 

OiNEXTI s ZY=0: P=30: G05UB1300: G0T0350 

940 T3=lö: PRINTS920» " Ich lege ab •* ; : LC (1 ) =0: LC ( 

2) =0: LC (3) =0: LC (4) =0 
950 F0RI=1T032 
. 960 IF L(I)'~1 THEN 1010 

970 IF INTCK(I)/10)-1 THEN LC (1 ) =LC ( 1 ) +1 : MC (1 , LC ( 1) ) =1 : GOTO 1010 
980 IF INT ( K ( I ) / 1 0 ) =2 THEN LC<2> -LC (2) +1 : MC (23 LC (2) ) -I : GOTO 1010 
990 IF INT (K ( I ) / IO) =3 TUEN LC (3) =LC ( 3) +1 : MC ( 3.- LC (3> ) =1 : GOTO 1 01 0 
1000 TF I NT ( K ( I > / 1 0 ) =4 THEN LC <4> =LC (4) +l': MC (4, LC <4) ) =1 : GOTO 1010 
1010 NEXT I 

1020 IF ZY=0 THEN 1070 
1030 IF ZY>2 AND LC(ZZ)=0 THEN 1260 

1040 IF Z Y>2 AND LC(ZZ)<3 THEN IF RND(B)<4 THEN 1260 
1050 IF ZY>2 AND LC(ZZ)>2 THEN IF RND(16)<4 THEN 1260 
1060 GOTO 1160 
1070 LE=LC<n :LF=1 
1080 FORI =2 TO 4 

1 090 IF LC ( I ) >LE THEN LE=LC ( I ) : LF=I 
1100 NEXT I 

1110 L < MC ( LF * LE ) >=0: REM COMPUTER LEGT KARTE 
1120 ZY=ZY+1 s KZ (ZY) =K (MC (LF> LE) ) 

1130 ZZ-LF 

1140 p 1=233: ON ZZ GOSUB 1640? 1660? 1630? 1650: FRINTSl 12vZY 
1150 G0SUB24 10s G0T0550 
1160 IF RND (8) >3 THEN 1210 
1170 L (MC <ZZ ■> LC < ZZ> > > =0 
1180 ZY=ZY+lsKZ (ZY)=K<MC(ZZ.’LC(ZZ) > > 

1190 PRINTfei !£•• 2Y 
1200 G0SUB45ÖS G0SUB2410! GÜT0550 
1210 ZX=RND<4) : IF LC(ZX)=0 THEN 1210 
1220 L(MC <ZX,LC(ZX> ) > =0 
1230 ZY=ZY+1 s KZ (ZY) =K (MC (ZX? LC (ZX) ) ) 

, 1240 PR1NTS112,ZY 

1 250 G0SUB450: G0SUB241 0: G0T0550 
1260 F0RI=1T03 

1 270 G0SUB2420: F0RJ=t TO 100: NEXTJ 
1280 NEXTI 

1290 P=30:B=KZ(ZY) JGOSUBl 440 
1300 IF INT (KZ (ZY) /10)=ZZ THEN 1350 
1310 FOR I=1T032 
1320 IF LU>=0 THEN L < I > =1 

1330 NEXTI JPRINT@920j "Du hast gemodelt! Nimm den Hau-fen 


II ■ 
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1340 FQR:[=1TÜ500: NEKTI : ZY=0: F-30: GGSUB1500: GDTD350 

1350 FOR i=.lT032 

1360 IF L(I)=Ö THEN L(I)=-1 

1370 NE)<TI:PRINTS920, " Glueck gehabt ! "5 

1380 F0RI=1T0500: NEXTI = ZY=0: GQSUB45Q: P=30: G0SUB1500: G0TD940 
1.400 C0L0UR6: GOSUB 15G0: C.GL0UR2: P1=P+41 • GOSUB 1640: Pl=P+45: G0SUB1640: P l = 
P+321 sGOSUBl 640 :Pl=P+325: GOSUB 1640: RETURN 

1410 CQL0UR6: GOSUB 1 500 : CQLOURZ: Pi=P+41 : GOSUB 1660: Pl=P+45: GOSUB 1660: P I ==V 
Fh 32 1 : GOSUB 1660: Pl=P+325s GOSUB 1660: RETURN 

1420 C0LQUR6: GOSUB 1500: C0LQÜR3: PI =F'.+4l: GOSUB 1630: Pl=P+45: GGSUB1630: Pl= 
P+321 : G0SUB1630: Pl=P+325: G0SUB1630: RETURN 
1430 . C0L0UR6: G0SUB1500: C0L0UR3: P1=P+41 : G0SUB1650: Pl=P+45: 

P+321 : GQSUB165G: Pl=P+325: GOSUB 1650: RETURN 
1440 A3-INT(B/10> 

1450 ON A3 G0SUB1400, 1410, 1420, 1430 
1460 A4=B- ( INT (B/ 10) +10) 

1470 ON A4 GOSUB 1540, 1550, 1560, 1570, 1580, 1590,1600,1610 
1480 RETURN 
1490 END 

1500 PRI NTSP, Al* 

...1510'' F0RI = i'T09:PRINTSP+I*4Ö, CHR* (183)5" 11 5 CHR* ( 184) s'NEXT I 

1 520 PR I NTSP+400 , A2* s 
1530 RETURN 

1540 C0L0UR4: PRINTSP+163, CHR* ( 156) 5 CHR* ( 157) : PRINTGP+203, CHR* ( 15B) 5 CHR 
*1159) : PRINTGP+243, CHR* ( 160) 5 " " : Z=7: RETURN 

1550 C0L0UR4: PRINTSP+163 CHR* < 136) 5 CHR* < 131 ) : PRINTSP+203, CHR* < 135) : CHR 
$(134) : PRINTGP+243, CHR* (137) 5 CHR* (132) :Z==B: RETURN 

1560 C0L0UR4: PRINTSP+163, CHR* (136)5 CHR* (131) : PRINTSP+203, CHR* ( 138) : CHR 
*(139) :PRINT@P+243, CHR* (140) 5 CHR* (132) :Z=9: RETURN 

1570 COLOUR4 : PR I NTSP+ 1 63, CHR* (141 ) 5 CHR* ( 131 ) : PRI NTGP+203, CHR* ( 142)5 CHR 
*(133) :PRINT@P+243, CHR* (143) 5 CHR* (132) SZ=10: RETURN 

1580 C0L0UR4: PRINTSP+163, CHR* ( 12B) 5 CHR* (131) * PRINTSP+203, CHR* (144) 5 CHR 
$(134) : PR I NT GP+243 , CHR* ( 1 29 ) ? CHR* (132) : Z =2: RETURN 

1590 C0LDUR4: PRINTSP+163, CHR* ( 128) ; CHR* ( 131 ) : PRINTSP+203, CHR* ( 130) 5 CHR 
* (1 33) = PRINTSP+243, CHR* ( 129) 5 CHR* ( 132) s Z=3: RETURN 

1600 CQL0UR4 : PRINTSP+163, CHR* (151)5 CHR* ( 152) : PRINTSP+203,' CHR* < 153) 5 " " 

: PRINT@F'+243, CHR* (154)5 CHR* ( 155) : Z=4: RETURN 

1610 CGLDUR4: F'RINTGP+163, CHR* (145) 5 CHR* ( 146) : PRINTSP+203, CHR* ( 147) 5 CHR 
*(148) : PRINTGP+243, CHR* (149) 5 CHR* (150) 8Z*“11: RETURN 
1620 IF F>20 THEN G0SUB250: F=0: RETURN 

1630 CDL0UR3: PRINTSPl , CHR* (161 ) 5 CHR* (162): PRI NTSP 1+40, CHR* (163) ?CHR* (1 
64) : RETURN : 

1640 CGL0UR2: PRINTSPl , CHR* (165) 5 CHR* ( 166) : PRINTSPl +40, CHR* (167) 5 CHR* ( 1 
68) : RETURN 

1 650 C0LGUR3 : PR I NTSF' 1 , CHR* (169)5 CHR* ( 1 70 ) : PR I NTSP 1 +40 , CHR* (171)5 CHR* ( 1 
72) : RETURN 

1660 C0L0UR2: PRINTSPl , CHR* (173) 5 CHR* ( 174) : PRI NTSP 1+40, CHR* (175)5 CHR* ( 1 
76) : RETURN 

1670 DATA255, 255, 192, 192, 192, 192, 192,192 
1680 DATA192, 192, 192, 192, 192, 192, 255,255 
1690 DATA192, 192, 192, 192, 192, 192, 192, 192 
1700 DATA240, 252, 014, 006, 003, 003,003, 003 
1710 DATA003, 003, 003, 003, 006, 014, 252, 240 
1720 DATA003, 003, 003, 003, 003, 003, 003, 003 
1730 DATAÜ06- 014, 028, 240,240, 028, 014, 006 
1740 DATA096, 112,056,015,015,056, 112,096 
1750 DATA015, 063, 112,096, 192, 192, 192, 192 
1760 DATA192, 192, 192, 192,096, 112,063,015 
1770 DATA192, 096, 112,063,015,000,000,000 
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■ ' 1 780 DATA0Ö3? 003? 003? 255? 2s5? 003? 003? 003 
1 790 DATA000? 000? 000? 000? 224? 1 12? 063? 031 
1800 DATA192? 193? 195? 195? 198? 193? 198? 198 
1810 DATA198? 198? 198? 198? 198? 198? 198? 198 
1820 DATA198? 198? 198? 198? 195? 195? 193? 192 
1830 DATA 192? 192? 192? 255,255, 192? 192? 192 
1 840 D AT AOO 1 ? 00 1 ? 00 1 ? 003 ? 003 ? 003 ? 006 ? 006 
1850 DATA 128? 128? 128? 192? 192? 192? 096? 096 : 

1860 DATA006? 01 2? 01 2? 01 2? 024? 031? 031? 048 
1870 DATA096? 048? 048? 048? 024? 248? 248? 012 
1880 DATA048? 043, 096? 096? 096? 192? 192? 192 
1890 DATA012? 012? 006? 006? 006? 003,003? 003 
1900 DATA192, 192,192? 192? 192? 192? 192? 193' 

1910 DATA003? 006? 012? 024? 048, 096? 192? 128 
1920 DATA195? 198? 204? 216? 248? 236? 19B? 195 
1930 DATA193? 192? 192? 192? 192? 192? 192? 192 
1940 DATA128? 192? 096? 048? 024? 0:12? 006? 003 
1950 DATA255? 255? 000? 000? 000? 000? 000? 000 
1960 DATA255? 255? 003? 006? 012? 024? 048? 048 
1 970 DATAOOO ? 000 , 000 ,001? 003 ? 003 ? 006 ? 006 
1980 DATA096? 192? 192? 1.2B? 000? 000? 000? 000 
1 990 DATAO 12,012? 024 ? 024 ? 024 , 048 ? 048 ? 048 
2000 DATA028? 062? 127? 255? 255,255? 127,127 
2010 DAT A056 ? i 24 ? 254 ? 255 ? 255, 255,254,254 
2020 DATA063? 031 ? 015? 007? 003? 003? Q01? 001 
2030 D AT A252 ? 248 , 240 ? 224 , 1 92 , 1 92 ? 1 28 ? 1 28 
2040 DATAOOT? 003? 003? 003,001 ? 001 ? 113? 255 
2050 DATA128? 192? 192? 192? 128? 128? 142? 255 
2060 DATA255 ? 1 1 3 ? 00 1 ? 001 ,00 1 ,00 1 ? 00 1,001 
2070 DATA255? 142? 123? 128? 128? 128? 128? 128 
2080 DAT AOO 1 ? 00 1 ? 003 ? 003 ? 007 ? 015? 063 ? 255 
2090 DATA 128? 128? 192? 192, 224, 240? 252? 255 
2100 DATA255? 063? 015? 007? 003? 003? 001,001 
2110 DATA255? 252,240,224? 192? 192? 128? 128 
- 2120 DATA0Ö1? 003? 007? 01 5? 063? 127? 255? 255 
2130 DATA128? 192? 224? 240? 252, 254? 255? 255 
2140 DATA255? 255? 121 ? 049? 001 ? 001 ? 003? 007 

21 50 DAT A255 ? 255 ? 1 58 ? 1 40 ? 1 28 » 1 28 , 1 92 ? 224 . s* 

2160' DATAOOO, 007? 024* 032? 032? 064? 064? 064 [ 

2170 DATAOOO? 224? 024? 004? 004? 002? 002,002 | 

2 1 BO D AT A064 ? 064 , 064 ? 032 ? 032 ? 024 ? 007 ? 000 V 1 

2190 DATA002? 002? 002, 004? 004, 024? 224? 000 J 

2200 DATAOOO? 255? 000? 000? 000? 000? 000,000 

2210 DATAOOO? 000? 000? 000? 000? 000? 255? 000 

2220 DATA064? 064? 064? 064? 064? 064? 064? 064 

2230 DATA002? 002, 002, 002? 002? 002? 002? 002 

2240 CHAR2: RESTORE : FORA7.=S<HF400T0?<HF5G7 : READB7.: PÜKEA7.? B7.5NEXT: RETURN 
2250 PRINT0615? "Ich mische" :G0SUB250s PRINTS615, " ":F=1 

2260 RETURN 

2270 F0RI=lTQ6s F0RJ=1T06 
2280 PLAY ( 1 ? I ? J ? 15) 

2290 FORI 1=1 T03:NEXTI1 
2300 NEKTJ ? I : PLAY ( 1 ? 1 ? 1 ? 0) 

2310 RETURN 

2320 FDRT= 1 TOS : FORT 1 =52 T040STEF- 1 : P0KE1 71 49 ? T 1 : LGR : NEXT : FORT 1 =40T052 : 
POKE 1 7 1 49 ? T 1 : LGR : NEXT : NEXT : RETURN 
2330 PLAY ( 1 ? 4? 5? 15) 

2340 POKE 171 49 ? 50 
2350 FGR I 2= 1 TO 10s NEXTI 2 
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2360 PLAY <1,5, 5, 15) 

2370 P0KE17149» 54 
2380 FORI 2=1 TO 10 sNEKT 12 
2390 NEXTI1 
2400 RETURN 

• 2410 TR=RND<7> : F0RT=1T05: PLAY ( 1 , T, TR, 15) : FORT 1 = 1T0T3: NEKT: PLAY < L, 1,1,0 : 

) : FORT 1 =1T0T3 : NEXT: NEXT: RETURN 

2420 S0UND6, 30: 50UND7, 7: S0UND8, 16: 50UND9, 1 6: SÜUND1 0, 16: SDUNDl 2, 16: SOUN 
D13V0; RETURN 
2430 RETURN 

2440 FORI =8T01 STEP- l: PLAY <1,5, 1,15) : PLAY <2, 4, 1,15) : PLAY <3, 6, I, 15) : FÜR J 
= 11030: NLKU, I s PLAY ( 1 , 1, 1,0) :PLAY(2, 1, 1,0) :PLAY<3, 1, 1,0) 

2450 RETURN 

2460 FÜR I = 1 T07 : FORM = 1 T07 

2470 11=8-1 :J1=Q-J: PLAY ( 1 , I,J, 15) : PLAY <2, II, Jl, 15) 

. 2480 NEXTJ , I 

2490 PLAY ( 1 , 1 , 1 , 0> : PLAY <2, 1,1,0) 

2500 RETURN 

25 10 TT=RND < 5 ) +3 : A A=TT~ 1 : BB=TT-2 : FORDW= 1 5T0 1 STEP- 1 s PL AY < 1 , TT , 2 , OW ) : PL A 
Y (2, AA, 1,0W) : PLAY < 3, BB, 1 , QW) : F0RLI = lTQ8: NEXTI.1 , 0.W: PLAY ( 1 , 1, 1,0) : PLAY <2 
, 1,1, C»:PLAY <3, 1, 1 ,0) : RETURN 


Thomas Weinstein 

Basicstart 



Das vorliegende Programm soll 
zwei Zwecken dienen. Zum er- 
sten soll es den Anfängern in der 
Assemblerprogrammierung anhand 
eines einfachen u. überschaubaren 
Beispiels zeigen wie man auf As- 
semblerebene : die komfortablen 
Möglichkeiten von NEWDOS 80 
oder GDOS nutzen kann. Zum 
zweiten läßt es sich durchaus 
praktisch verwenden. 

Wer hat sich nicht schon da- 
rüber geärgert : 

Maschinenprogramme (mit Ex- 
tension / CMD) lassen sich ein- 
fach u. komfortabel durch An- 
gabe des Namens starten, währ- 
end Basic-Programme umständlich 
durch die Eingabe Basic RUN" 
Filename" gestartet werden müs- 
• ■; sen. Das erfordert zum einen 
daß der Benutzer weiß, daß es 
\ sich, um ein Basic-Programm han- 
delt, zum anderen ist obiger Miß- 
stand besonders: ärgerlich wenn 
man über ein automatisches Me- 
nüprogramm verfügt, daß es er- 
laubt ein File im Directory mit- 
tels der Pfeiltasten anzusteuern 
u. durch Betätigen der Enter- 
oder New-Lme-T aste, das ■: ange- 


wählte Programm zu starten. Das 
Programm BASICSTART soll die- 
sen Mißstand beseitigen. Das 
heißt: Wenn ein Basic-Programm 
mit BASICSTART bearbeitet wur- 
de, läßt es sich wie jedes Maschi- 
nenprogramm durch einfache An- 
gabe des Namens starten. 

Wie kann man diesen Effekt 
erreichen? Das Programm nutzt 
die Tatsache aus, daß es mög- 
lich ist aus einem Assembler- 
programm jede gewünschte Be- 
triebsystemfunktion ausführen zu 
lassen. 

Das geht ganz einfach! Im Regi- 
sterpaar HL wird die Adresse ab- 
gelegt, an der im Speicher der aus- 
zuführende Befehl steht. Dann 
macht man einen CALL 4405 H 
oder CALL 4419H. Der einzige 
Unterschied zwischen den Adres- 
sen ist folgender: Bei 4419 H 
geht es nach Ausführung des Be- 
fehls im Anwenderprogramm wei- 
ter, während bei Aufruf von 
44Q5H die Kontrolle ans Betrieb- 
system übergeht. 

Soll also zum Beispiel von ei- 
nem Assemblerprogramm aus die 
Uhr eingeschaltet werden, pro- 


grammiert man etwa so : 

BEF DE FM 'CLOCK' 
DEFBODH 
LD HL, BEF 
CALL 441 9 H 

Das ODH ist unbedingt not- 
wendig, damit das DOS das Ende 
des Befehls erkennen kann. Eine 
Warnung sei noch angefügt: 

Beim Verwenden obiger Metho- 
de ist der Benutzer selbst dafür 
verantwortlich, daß genügend 
Speicherplatz zur Ausführung des 
Befehls vorhanden ist, oder daß 
nicht etwa durch die Betriebs- 
systemroutine das eigene Pro- 
gramm überschrieben wird. 

Aber nun wieder zurück zu 
BASICSTART. Mein Programm 
macht eigentlich nichts anderes, 
wie widerum ein kleines Maschi- 
nenprogramm zu erzeugen, das 
den Namen des auszuführenden 
Basic-Programmes mit der Exten- 
sion /CMD und nach dem Start 
nichts anderes macht wie Basic zu 
laden und das gewünschte Pro- 
gramm zu starten. — Zeilen 105- 
110 im Listing. — Das Programm 
fragt den Benutzer nach dern Na- 



men des Basic-Programmes und als Eine weitere Erläuterung des empfehlen, selbst ähnliche Versu- 
besonderes E eature ob der Namen Programmes an dieser Stelle erub- che in dieser Richtung zu unter- 
des Programmes im Directory un- rigt sich wohl aufgrund der aus- nehmen. Auf diese Art lassen sich 

sichtbar gemacht werden soll (sc, führlichen Kommentierung des mit relativ kurzen Assemblerpro- 

daß nachher nur noch das CMD- Listings grammen komplexe Anwendungen 

•File sichtbar ist). Im übrigen kann ich nur jedem realisieren. 




OOIOO 

00110 

00120 

00130 


BASICSTART VI. 0 ERSTELLT: 22.05.84 
COPYRIGHT BY THOMAS WEINSTEIN 

KOENIGSBERGER STR. 25A \ \ 

7500 KARLSRUHE- 1 

MASCHINE: VIDEO GENIE I, II, TRS 80, KOMTEK, EVENTUELL 
COLOUR-GENIE 

DOS : NEWDOS 80 V2.0 ODER GDOS 


00140 


00150 

00160 


00180 


00190 ORG 7000H 

00200 LD HL, START ; LADE BASIC. 

00210 CALL DOSCMD ;UND STARTE PROGRAMM 

00220 START DEFM 'BASIC RUN'" -HINTER RUN" WIRD SPAETER 
00230 DEFS 32 ;DER NAME ANGEHAENGT. 

00240 ; 

00250 ;***** BETRIEBSYSTEM- AUFRUFE ***** 

00260 ; 

00270 NEWDOS EQU 402DH ; RUECKKEHR ZUM NEWDOS 

00280 DOSCMD EQU 4405H ; FUEHRT DOS-BEFEHL AUS AUF DEN 

00290 ; REGISTERPAAR HL ZEIGT. 

00300 DOSCAL EQU 4419H ; WIE DOSCMD KEHRT ABER ’S AI 

00310 ; DERPROGRAMM ZURUECK. 

00320 ; 

00330 ; ***** ROM-AUFRUFE ***** 

00340 ; 

00350 INCH EQU 2BH ; LAEDT ASCII-CODE VON GEDRUECFTER 

00360 ; TASTE IN A. A=0 FALLS KEINE TASTE 

00370 OUTCH EQU 33H ; GIBT ZEICHEN IN A AUF AKTUELLE 

00380 ; CURSORPOSITION AUS. 

00390 CLS EQU* 01C9H ;LOESCHT BILDSCHIRM 

00400 INBUF EQU 05D9H ; LIEST MAX (B) ZEICHEN IN BUFFER 

00410 ; AUF DEN HL ZEIGT. NACH RUECKKEHR 


00420 jENTHAELT BANZAHL DER TATSAECHLICH 
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00440 

00450 

• ***** 
» 

SONDERZEICHEN ***** 

00460 

CR 

EQU 

ODH ; WAGENRUECKLAUF , ZEILENVORSCHUB 

00470 

SLASH 

EQU 

1 / ' ; SCHRAEGSTRICH 

00480 

• 

> 



00490 

. * * *** 
t 

VARIABLE 

UND BUFFER FUER PROGRAMM ***** 

00500 

NAMBUF 

DEFS 

32 ; BUFFER FUER INBUF 

00510 

MES1 

DEFM 

i ***************************** 

**** • 




00520 


DEFB 

CR 

00530 


DEFB 

0 

00540 
NG *' 

MES2 

DEFM 

* * BASIC — ) CMD- FI LE UMWAND LU 

00550 


DEFB 

CR 

00560 


DEFB 

0 . 

00570 

MES3 

DEFW 

ODODH 

00580 
ES AN 

! ' 

DEFM 

'BITTE GEBEN SIE DEN NAMEN DES BASICPROGRAMM 

00590 


DEFB 

CR 

00600 


DEFM 

' PROGRAMMNAME= ' 

00610 


DEFB 

0 

00620 

MES4 

DEFW 

ODODH 

00630 

ERDEN 

? 1 

DEFM 

•SOLL DAS BASICPROGRAMM UNSICHTBAR GEMACHT W 

00640 


DEFB 


00650 

MES5 

DEFM 

' ( J/N) : ' 1 

° 

ODODH \ 

00660 


DEFB 

00670 

MES6 

DEFW 

00680 


DEFM 

'NOCH MEHR PROGRAMME ?' * 

00690 


DEFB 

0 

00700 

DUMP 

DEFM 

'DUMP, ' 

00710 

DUMP1 

DEFS 

32 ' 

00720 

DUMP2 

DEFM 

• /CMD , 7000H , 7030H , 7000H • 

00730 


DEFB 

CR' 

00740 

INV 

DEFM 

’ATTRIB, ' 

00750 

INV1 

DEFS 

32 ' 

00760 

INV2 

DEFM 

' , INV' 

00770 


DEFB 

CR 


00780 j****** ************************************** *********** 
00790 ; UP ZUR AUSGABE VON TEXTEN. HL ZEIGT AUF TEXT, DER MIT 
00800 ; 0 ABGESCHLOSSEN SEIN MUSS. 

00810 ; ******************************************************* 
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00820 TXTOUT 

LD 

A, (HL) 

; NAECHSTES ZEICHEN NACH 

A 

00830 

OR 

A 

; SETZE ZERO-BIT 


00840 

RET 

Z 

; TEXTENDE ERREICHT DANN 

ZURUECK 

00850 

CALL 

OUTCH 

; NEIN! GIB ZEICHEN AUS 


00860 

INC ."V 

' HL 

; ERHOEHE ZEIGER 


00870 

JR 

TXTOUT 

; UND NAECHSTES ZEICHEN 



00880 ; ****************************************************** 
00890 ; UP FORDERT VOM BENUTZER JA-NEIN ENTSCHEIDUNG 
00900 ; KEHRT MIT ANTWORT IN ZERO-BIT ZURUECK. 

00910 ; JA - Z-l, NEIN Z£0 

00920 ; ****************************************************** 

; FRAGE (J/N) 


00930 FRAGE 

LD 

HL.MES5 

00940 

CALL 

TXTOUT 

00950 GET 

CALL 

INCH 

00960 

OR 

' A 

00970 

JR 

Z, GET 

00980 

CP 

• J' 

00990 

RET 

Z 

01000 

CP 

'N' 

01010 

JR 

NZ.GET 

01020 

OR 

A 

01030 

RET 




; OK MIT Z= 1 ZURUECK 
; EIN N ? 

;NEIN! ZEICHEN EINLESEN 
; SETZE STATUS (Z=0) 


01040 ;************************ ****************************** 
01050 ; 

01060 ;♦#**** ****** *************'********.*.********* *********** 


01070 ; UP BRINGT DEN FILENAMEN IN NAMBUF ZEICHENWEISE NACH 
01080 ; DUMP1 SOLANGE BIS ZEICHEN EIN CR ODER SCHRAEGSTRICH IST 
01090 ; ****************************************************** 


01100 

SSLASH 

LD 

HL , NAMBUF 

01110 


LD 

DE.DUMPl 

01120 

L00P2 

LD 

A, (HL) 

01130 


CP 

CR 

01140 


RET 

•' Z : ' 

01150 


CP 

SLASH 

01160 


RET 

Z 

01170 


LD 

(DE) ,A 

01180 


INC 

HL 

01190 


INC 

DE 

01200 


JR 

L00P2 


; ZEIGER AUF FILENAMEN 
; ZEIGER AUF DUMP BEFEHL 
; ZEICHEN AUS FILENAME 
; WAGENRUECKLAUF? 

; OK FERTIG ZURUECK 
; ODER SCHRAEGSTRICH ? 

; OK FERTIG ZURUECK 
; ZEICHEN AN DUMP ANHAE NGEN 
; ZEIGER ERHOEHEN 

. II M 


; NAECHSTES ZEICHEN 
01210 ; ***************************************************** 


30 GENIE DATA 


01220 HAUPT CALL CLS ; LOESCHE BILDSCHIRM 

01230 LD HL.MESl ; TEXTE FUER DIALOG MIT BENUTZER 

01240 PUSH HL ; AUSGEBEN 


01250 

CALL 

TXTOUT 

01260 

LD 

HL.MES2 

01270 

CALL : 

TXTOUT 

01280 

POP 

HL 

01290 

CALL 

TXTOUT 

01300 

LD 

HL.MES3 

01310 

CALL 

TXTOUT 

01320 

LD 

hl.nambuf 

01330 

LD 

B , 32 

01340 

CALL 

INBUF 

01350 

LD 

C > B 

01360 

LD 

B,0 

01370 

PUSH 

BC 

01380 

LD 

de,start+io 

01390 

LDIR 


01400 

LD 

A, CR 

01410 

LD 

(DE) ,A 

01420 

LD 

HL.MES4 

01430 

CALL 

TXTOUT 

01440 

CALL 

FRAGE 

01450 

PUSH 

AF 

01460 

CALL 

OUTCH 

01470 

POP 

AF 

01480 

JR 

NZ, WEITER 

01490 

LD 

HL.NAMBUF 

01500 

LD 

DE.INV1 

01510 

POP 

BC 

01520 

PUSH 

BC 

01530 

LDIR 


01540 

LD 

HL.INV2 

01550 

LD 

BC ,5 

01560 

LDIR 


01570 

LD 

HL, INV 

01580 

CALL 

DOSCAL 

01590 WEITER 

POP 

BC 

01600 

CALL 

SSLASH 

01610 





; FILENAME MIT MAX. LAENGE 
; 32 ZEICHEN EINLESEN 


; ANZAHL GELESENER ZEICHEN 
; NACH BC 
; BC RETTEN 

; FILENAME AN RUN" AN- 

;HAENGEN 

; CR ANHAENGEN 

; ABFRAGE OB BASICFILE UN- 
SICHTBAR GEMACHT WERDEN 
; SOLL 

; RETTE STATUS (Z-BIT) 


; NEIN WEITER 

; FILENAME AN ATTRIBBEFEHL 
; ANHAENGEN * 

; LAENGE FILENAME 


; HINTER FILENAME , INV AN- 
; HAENGEN 

; ATTRIBBEFEHL AUSFUEHREN 

; FILENAME VON EVENTUELLER 
; EXTENSION TRENNEN 
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01620 

LD 

HL.DUMP2 

; FILENAME OHNE EXTENSION 

01630 

LD 

BC.INV-DUMP2 

; UND REST VON DUMPBEFEHL 

01640 

LDIR 


; AN DUMP, ANHAENGEN 

01650 

LD 

HL, DUMP 

; DUMPBEFEHL AUSFUEHREN 

01660 

CALL 

DOSCAL 


01670 

LD 

HL.MES6 

; ABFRAGE OB NOCHMAL 

01680 

CALL 

TXTOUT 


01690 

CALL 

FRAGE 


01700 

PUSH 

AF 

F 

01710 

CALL 

OUTCH 


01720 

POP 

AF 


01730 

JP 

Z, HAUPT 

; WENN JA VON VORNE 

01740 

JP 

NEWDOS 

; NEIN ZURUECK ZUM DOS 

01750 

END 

HAUPT 

; EINSPRUNGADRESSE 


S 

i 


? 

:• 



Ulrich Groke 


Hasenjagd 


10 LGRs CLSJ C0LDUR4 
20 CLEAR 1000 
30 ZE=0 

40 FDR 1=0 TO 36 STEF'3 

50 GB= I : G0SUB2530 : GB= I +840 s G0SUB2530 

60 NEXTI 

70 FORI =1 20T0760 STEP 80 

80 SP= I i S W= 1 : G0SUB2570 : SP= I +36-: SW=- 1 : GQ£M B2570 
90 NEXTI 

100 PRINTQ210? "H A S E N J A G D *' 

110 PRINT025O, ; 

120 PRINT@285j " geschr. von Ü.Grdke 516 Dueren" 
130 PRINT@325s "Der Hase muss durch die Jaeser" 
1 40 FRINT8365, "zur Linie 0. Er dar-f in alle 4" 
150 pRINT@405.-. "Richtungen l Hopser machen." 

160 PRINT@445j "Di e Jaeser duerf-en 1 Schritt" 
170 PRINT@485i- "nach oben machen. " 

180 PRINT0525J "Namens =lBuchst. =ComPuter spielt 
190 PRINT@565> "Namen: >lBuchst. =Snieler spielt 
200 PRINT0645, "Namen des Hasen: " ; : INPUTHC* 

210 HB*=L€FT$<HC*, 12) 

220 H A$=LEFT# ( HB$ » 1 ) 

230 PR INTQ725, "Namen des Jaeserg" 5 : INPUTAC* 

240 AB*=LEFT*(AC*, 12) 

250 AA$=LEFT.$<AB$, 1) 

260 FKEY1="RUN 
270 FKEY2= "RUN 
280 FKEY3="RUN 
290 FKEY4="RUN 
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300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

.600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 


FKEY5="RUN 

FK.EY6='‘RUN 

FKEYB="NEW 

DIM F0'<32> ,BZ*<7) , GG* (7) , S <7, 7) , E (8) , El (8) , E2 (B) , E3 (8) , E4 (B) 
G=~l 

DAT A255, 000,034, 054V 028? 040? 124. - 063 
DATA255, 000 ,000 ,000, 000,006 ,006 >252 
DATA015, 015, 007, 008, 01 6, 032, 064, 000 
DATA252, 252, 248, 004 , 002, 002, 002, 000 
DATA255, 000, 000, 000, 000, 1 27, 004, 002 
DAT A255 , 000 , 056 , 124,024,248, 120,088 
DATA001 , 000, 000, 000, 000,000, 000, 000 
DATA152, 024, 120, 072, 072, 072, 207,000 
DATA255, 000, 007, 015, 063, 063, 063, 127 
DATA255 , 000 ,224,248, 252 ,254,254, 254 
DAT A255, 255,255,255, 255, 127,063,031 
DATA255, 255, 255, 255, 254, 252, 248, 240 
DATA009, 005, 003, 001 ,001 ,001 ,003, 255 
DATA144, 160, 192, 128, 128, 128, 192,255 
DATA124, 124, 062, 031, 015, 000, 000, 000 
DATA062, 062, 124, 248, 240, 000, 000, 000 
DATA008, 008, 008, 008, 008, 008, 008,255 
DATA255, 008,008,008, 008,008, 008,008 
DATA015, 008, 008, 008, 008, 008, 008, 008 
DATA24B, 008, 008, 008, 008, 008,008, 008, 

DATAOOS, 008, 008, 008, 008, 008, 008, 248 
DAT A008 , 008 , 008 , 008 , 008 , 008 , 008 ,015 
DATA056, 068, 068, 124,068, 068, 000,255 
DATA 1 20 , 068 , 1 20 , 068 , 068 ,120, 000 , 255 
DATA060, 064, 064, 064,064, 060,000, 255 
DAT Al 20, 068, 068, 068,068, 120, 000, 255 
DATA124, 064, 120,064, 064, 124,000,255 
DATA 1 24 , 064 , 1 20 , 064 , 064 , 064 , 000 , 255 
DATA060, 064, 064, 076, 068, 060, 000, 255 
DATA068, Ü6B, 124, 068, U6B, 068, 000,255 
DAT A002 , 006 , 002, 002 , 002 , 002 , 000 , 255 
DATA060, 002,028, 032, 032, 062, 000, 255 
DAT A06Ö, 002, 028, 002, 002, 060, 000, 255 
DATA034 , 034 , 062 , 002 , 002 , 002 , 000 , 255 
DATA062, 032, 060, 002, 002, 060, 000, 255 
DATA030, 032, 060,034,034 , 028,000, 255 
DATA062, 002,004, 004, 008, 008,000,255 
DATA028, 034,028,034, 034,028,000,255 
DATA034, 034, 034, 034,034,034, 034, 255 
DATA034, 034, 034, 034, 034, 034, 034,034 
DATA255, 034, 034, 034, 034, 034, 034,034 
DATA255, 000, 000, 000, 000, 000,000, 000 
DATA008, 008, 008, 008, 008, OOB, 008,008 
DATA001 , 007, 013,019, 124,130, 136, 142 
DATA241 , 247, 253, 259, 364,370,376,382 
DATA481 , 487, 493, 499, 604, 610, 616,622 
DATA721» 727, 733,739,844, 850, 856, 862 
DATA 7, 1 ,1 , 004, 7, 3, 0, 010, 7, 5, 0,016, 7,7, 0,022 
DATA 6, 0,0, 121,6,2,0, 127, 6, 4, 0, 133, 6, 6, 0, 139 
DATA 5, 1 , 0, 244, 5, 3,0,250,5,5,0,256,5,7,0, 262 
DATA 4,0,0,361 ,4,2, 0, 367, 4,4, 0, 373, 4, 6, 0, 379 
DATA 3,1, 0, 484, 3, 3,0, 490, 3, 5,0, 496,3, 7, 0,502 
DATA 2,0,0,601,2,2, 0, 607, 2, 4, 0, 613, 2, 6,0, 619 
DATA 1, 1,0,724, 1,3,0,730, 1,5,0,736, 1,7,0,742 
DATA 0, 0, -1 ,841 ,0,2, -1, 847, 0, 4,-1, 853, 0, 6, -1 ,859 




Einkauf sführer 
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i,n Ihr mvsrtiisljw Partnsi IOr Coraputirsysumo 

JS'cc Computer Studio GmbH 

Soltwar« + Hiniwam + Benlung- 
lüf TRS 60» und Gtnia-CompuUr 
SnrvlM-Eüvereanil 

Elisabethstraße 5 
4600 Dortmund 1 
Tel.:02 31-528184 

IWAmpraörartner: Tx 822631 cccsd 

V.SchMlinwi 
Jan P. Schneider. 

•TBS 80 ist eingetragenes Warenzeichen der Tandy Corp. 


Nohlstr. 29 
4200 Oberhausen 1 
Telefon (0208) 853997 
C 4200 (APPLE komp.) 
Oric 

EACA (Videogenie) 
SANYO (Laser) 


TROMMESCHLAGER 
COMPUTER GMBH 
ST. AUGUSTIN 

POSTFACH 2105 
5205 ST. AUGUSTIN 2 
TEL. 02241-28071 
TELEX 889702 


IDSNABRÜCKI 

Elektronik 

SHOP 


TATUNG TPC 2000 
Bürocomputer mit 1.4 MBYTE 
Diskkapazität 

RECHNER für C/PM 2.2 und 
GENIE DOS 

Mit TOPTIP Textverarbeitung, Fi- 
nanzbuchhaltung u. offene Posten- 
verwaltung. Endpreis DM 5995,-- 
Räbiger Computersysteme 
5160 Düren, Veldenerstr. 65 
Tol.02421/43877, Telex 833642 REDO D 
Mont. -Freit. 10-13, 14-17 Uhr 
Allelnvertr.,Handleranfrag. willkommen 


SCHMIDTKE 

electronic 

GENIE- Fachhändler 

Sandkaulstraße 84/86 
5100 AACHEN 
Tel. 0241-23217 


Iburgerstraße 17 
Telefon 0541/588660 
4500 OSNABRÜCK 


Geschäftszeiten: 

Mo. - Fr. 10.00 Uhr bl« 13.00 Uhr 

14.30 Uhr bl« 18.30 Uhr 
s*. lo.oo Uhr bl* 14.00 Uhr 

Donnerstags geschlossen 


HALSENBACH 

WERSI 


Microcomputer 
Softwareprodukte 
Peripheriegeräte u. Zubehör 
SHARP 
KAYPRO 
EACA -GENIE 
e'bMiU OSBORNE 
* ATARI u.a. 

■W 1 -- BROTHER 

2940 Wilhelmshaven. 

Bismarckstraße 150 
Telefon 04421 -12636 


MICRO 80 Computer 

GENIE CENTER 

mJA mlt al9oner Service-Station 

MM . Computer • Monltore 

Typen rod u MatrUdrucker 

M E DVai,*.u»n-EtniO*a.Ti&4nr*rpiiU.f 

M.J Flnaubuchtiillvafl ...LohnMtNMHunfl 

■ 8fil*«-SoU»»r» : • 83i«lo<oar»oioi« 


MUSIK + COMPUTER 
Orgel- u. Piano-Bausätze 
Industriestraße 
5401 HA LS E N BACH 
Tel.. (06747)7131 


l000Berlin12, 
Schlüterstraße 16 
Telefon 030/3125913 

Geschäftszeiten : Mo-Fr 10-18. Sa 10-13 Uhr 
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900 DATAO, 0, 1, 1,2, 0,3, 1,4, 0,5, 1,6,0» 7» 1 
. 910 DAT A7, 1,6, 2, 5, 1,4, 2,3, 1,2,2, i, 1,0,2 
920 DATAO, 2, 1,3, 2, 2, 3,3, 4,2, 5, 3, 6,2, 7, 3 
930 DATA7 ,3» 6, 4, 5, 3, 4, 4, 3, 3, 2, 4, 1,3, 0,4 
940 DATAO, 4, 1,5, 2, 4, 3, 5, 4, 4, 5, 5, 6, 4, 7, 5 
■ 950 DATAO, 5, 1 , 6, 2, 5, 3, 6, 4» 5, 5»;6, 6, 5, 7, 6 

960 CHAR2sREST0REs F0RAZ7.=8 cHF400T0&HF557sREADBZ*/.s PQKEAZ7., BZ'/.: NEXT 
970 CLS 

980 PRINT027 , HA*, "=" 5 HB* 

990 PRINTS67 , AA*" " = " 5 AB* 

1000 F0RI=1TD32: READJ : PO ( I ) =J: NEXTI 

1010 GZ* (0) =CHR* ( 15B) : GZ* (1 ) =CHR* ( 159) : GZ* (2) =CHR* ( 160) : GZ* (3) =CHR* ( 16 
1 > : GZ* (4) =CHR* (162) : GZ* (5) =CHR* ( 163) : GZ* (6) =CHR* ( 164) : GZ* (7) =CHR* ( 165) 

1020 GG* (0) =CHR* ( 150) : GG* ( 1 ) =CHR$ ( 151 ) : GG* (2) =CHR* ( 152) : GG* (3) =CHR* <15 
3) : GG* (4) =CHR* ( 154) : GG* (5) =CHR* < 155) : GG* (6) =CHR* ( 156) : GG* (7) =CHR* ( 157) 

1030 GA*=CHR* ( 146) +CHR* (169) +CHR* ( 169) +CHR* (145) +CHR* (169) +CHR* (169) +C 
HR* ( 145) +CHR* ( 169) +CHR* ( 169) +CHR* < 145) +CHR* (169) +CHR* ( 169) +CHR* ( 145) +C 
HR* (169) +CHR* (169) +GHR* ( 145) +CHR* ( 169) +CHR* ( 169) +CHR* (145) +CHR* (169) +C 
HR* ( 169) +CHR* ( 145) 

1040 GA*=GA*+CHR* ( 169) +CHR*< 169) +CHR* ( 147) 

1050 GC*=CHR* ( 170) +" "+CHR* ( 170) + “ "+CHR* ( 170) +" "+CHR* ( 170) +" "+C 
HR* (170)+" "+CHR* ( 170) +" ,, +CHR* ( 170) + " "+CHR* ( 170) + " "+CHR*(170> 
1060 GD*=CHR* (149)+" "+CHR* ( 144) + " "+CHR* ( 144) +" "+CHR* < 144) +" "+C 
HR* ( 144) +" "+CHR* ( 144) +" "+CHR* ( 144) +" "+CHR* < 144) +" ,, +CHR*(14Q) 
1070 FÜR GA=0T0840 STEP 120 
10B0 PRINT@GA,GA* 

1090 PRINTQGA+40, GG*? 

1100 PR I NT @G A+80 , GD* J 
1110 NEXTGA 

1120 F0RI=1T032:GB=P0(I> : G0SUB2530: NEXTI 
1130 FQRI=0T07: FDRJ=0T07: S ( I , J ) =0: NEXT J : NEXTI 
1140 F0RI=1T032 

1150 READ HA: READ HB: READ HC: RE AD HD 
1160 S ( HB , H A ) =HC : SW=HC : SP=HD : G0SUB2570 
1170 GS (HB, HA) =HD: PRINTQHD+80, GG* (HB) ? GZ* (HA) 

1180 NEXTI 
1190 Hl=l : H2=7 
1200 G0T01910 

1210 IF LEN (HB*) =1 THEN 1440 
1220 ZZ=ZZ+1 : IF ZZ=20 THEN ZZ=»0 

1230 PRINT@107+40*ZZ, " " ? : PRINT@147+40*ZZ , " 

1240 PRINT@107+40*ZZ,HA*;" " ? GG* (Hl ) *, GZ* (H2> ; ; 

1 250 K 1 =0 : K2=0 : K3=0 : K4=0 

1260 IF H 1 + 1 >7 OR H2+l>7 THEN Kl=l : G0T012B0 
1270 IF S (Hl+1 , H2+1 ) =-l THEN Kl=l 
1280 IF Hl -KO QR H2+l>7 THEN K2=l : GOTO 1300 
1290 IF S < H 1 - 1 , H2+ 1 > =— 1 THEN K2=l 
1300 IF Hl -KO OR H2-l<0 THEN K3=l : GOTO 1320 
1310 IF S (Hl-1 , H2-1 ) =-l THEN K3=l 
1320 IF Hl+1 >7 OR H2-l<0 THEN K4=l : GOTO 1340 
1330 IF S (Hl + 1 » H2-1 > =-l THEN K4=l 

1340 IF Kl*»l AND K2=l AND K3=l AND K4=l THEN H3*8 : GOTO 1830 
1350 PRINTÖ1 1 1+40+ZZ , ” nach "5 
1360 HI*= INKEY*: IF HI*=""THEN 1360 
1370 PRINT01 17+40+ZZ , HI*? : G0SUB2790 
1380 HJ*=INKEY*:IFHJ$=" "THEN 1380 
1390 PRINTHJ*; : GOSUB 2750 

1400 H3=ASG (HI*) -65: IF H3<0 OR H3>7 THEN1350 




TriBat ein Programm für das Colour Genie mit 1 6K 

So etwas haben Sie auf dem Colour-Genie noch nicht ge- 
spielt! Ein Scramble-Spiel mit ungewöhnlicher Grafik ! 

Und wenn wir sagen, daß diese Grafik unerreicht gut ist, 
dann meinen wir das auch so. Sie düsen mit großer Ge- 
schwindigkeit über ein bergiges Gelände und müssen mit 
Laserstrahlen und Bomben angreifende Raketen sowie Benzin 
tanks vernichten. Mit der Zeit schwirren zudem noch 
allerlei Gebilde und Meteore im Luftraum herum, denen es 
auszuweichen gilt. 39 - DM 

Super Basic ein Programm für das Colour Genie 16/32 K 

Eine Basic - Erweiterung, die (fast) keine Wünsche mehr 
offenläßt. Mit GOTO oder GOSUB können Sie Labels ansprin- 
gen, z.B, • 10 LABEL "START" 


Programm 


THEN GOTO "START 


150 END 

Wenn Sie ein Programm mit (Break) oder STOP unterbrechen, 
oder falls es aufgrund eines Fehlers selbst irgendwo ab- 
bricht, dann können Sie sich mit ?VAR alle bisher im Pro- . : 
gramm benutzten Variablen und deren aktuelle Inhalte aus- 
geben lassen! 

Mit der FIND-Funktion können Sie beiebige Texte, Befehle, 
Worte oder Variablen im Programm suchen lassen, INSTR sucht 
eine Textvariable nach einer best. Zeichenfolge ab, mit 
DEF FN lassen sich Funktionen definieren; ein kleiner 
Maschinensprachemonitor ist direkt im Basic verfügbar: 
HEX/ACSII-Dump, EDIT-Memory, sowie Abspeichern eines 
Maschinenprogramms als "SYSTEM" -Programm auf Kassette 
sind damit möglich. 

Viele weitere Befehle sind vorhanden (insges. über 20St.): 
Peek & Poke jetzt mit Doppelbyte, &INKEY arbeitet wie 
INKEY, wartet aber bis eine Taste gedrückt wurde, ?HEX 
rechnet DEZ in HEX um, u.v.a.m. 

Das tollste ist jedoch, daß dieses Programm nur ca. 1,6K 
Speicherplatz belegt, Ihnen also noch genug Platz bleibt, 
um die neuen Befehle in eigenen Programmen anzuwenden. 

Trotz allem ein ungewöhnlich günstiger Preis: 

' 39,- DM 


SCHMIDTKE 


171 electronic aktuell 

j Büro- und Personalcomputer ^preiswert 

Sandkau Isfraße 84 - Telefon: 0241 -2 32)7 

^ 5100 AACHEN 

Wir senden Ihnen gerne unseren Softwarekatalog mit über 100 Programmen! (Natürlich kostenlos!) 
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1410 H4-VAL <HJ$> -1 : IF H4<0 DR H4>7 THEN 1350 

1420 IF ABS (H1-H3) < >1 0R ABS < H2-H4) < >1 OR S(H3,H4)<>0 THEN 1230 
1430 GDTD1S50 

1440 Z=0 : Z 1 = 0 s FDR I =0TQ7 : FOR J =ÖTD7 
.1450 IF S(I,J>=-1 THEN Z=Z+I : Z 1=Z 1+J 
1460 NEXTJjI 
1470 X=Hl-l: Y=H2-1 

1480 IF K< 0 OR Y<0 THEN R1=0: GOTO 1550 
1490 IF S(X,Y>=-1 THEN R1=0: S0T01550 
1500 IF )« 1 THEN RI =5 
1510 IF H2-2C0 THEN 1530 
1520 IF X<1 AND S (Hl ? H2-2) =0 THEN 
1530 IF X>1 AND Z>13 THEN Rl=10 
1540 IF X>1 AND Z<14 THEN RI =9 
1550 X=H 1 + 1 : Y =H2- 1 

1560 IF X >7 OR Y<0 THEN R2=0: G0T01630 
1570 IF B (X; Y) =-l THEN R2=0 : B0T01 630 
1 5B0 IF X >6 THEN R2=5 
1590 IF H2-2<0 THEN 1610 
1600 IF X>6 AND S(H1,H2~2>=0 THEN R2=8 
1610 IF X< 6 AND Z<14 THEN R2=10 
1620 IF X<6 AND Z >13 THEN R2=9 
1630 X=H1+1: Y=H2+1 

1640 IF X>7 OR Y >7 THEN R3=Ü: G0TD1690 
1650 IF S (X, Y) =-l THEN R3=0: GOTO 1690 
1660 IF X >6 THEN R3=4 
1670 IF X<6 AND Z<14 THEN R3=7 
1680 IF X<6 AND Z>13 THEN R3=6 
1690 X=H 1 - 1 : Y =H2+ 1 

1700 IF X<0 OR Y >7 THEN R4=0: G0T01750 
1710 IF S (X? Y) =-l THEN R4=0: G0T01750 
1720 IF X<1 THEN R4=4 
1730 IF X>1 AND Z>13 THEN R4=7 
1740 IF X>1 AND Z<14 THEN R4=6 
1750 FOR 1=10 TO 0 STEP -1 
1760 IFI=0 THEN H3=8: 1=0: G0T01B10 
1770 IF R1 = I THEN H3=H1-1 : H4=H2-1 '• 1=0= GOTO 
1780 IF R2=I THEN H3=H1 + 1 : H4=H2-1 : 1=0: GOTO 181 
1790 IF R3=I THEN H3=H1+1 : H4=H2+1 : 1=0: GOTO 181 
1800 IF R4=I THEN H3=Hl-l:H4=H2+l: 1=0: GOTO 1810 
1810 NEXT I 

1820 ZZ=ZZ+l: IFZZ=20 THEN ZZ=0 

1830 IF H3=8 THEN G0SUB2690: FRINT048O, " ":PRIN 

T" Die Jaeger gewinnen ! ": PRINT" " : END 

1840 PR I NT(ä 1 07+40*ZZ : , HB* 5 " " ; GG* (Hl > ? GZ* (H2) ?" nach " 5 GB*<H3> J GZ* (H4) J 

1850 SP=GS (Hl, H2): FOR I=1TQ5:SW=1:G0SUB 2570 

1860 GOSUB 2610 

1870 SW=0: GOSUB 2570 

1880 F0RJ=1T020: NEXT J 

1890 NEXT I 

1900 S ( Hl, H2> =0: S (H3, H4> =1 : H1=H3: H2=H4: SW=1 : SP=GS (Hl , H2> : G0SUB2570: GOS 
UB2650 

1910 ZZ=ZZ+l:IFZZ=20THEN ZZ=0 
1920 IF AA*=" "THEN AA$="X" 

1930 PRINTGsl07+4Q*ZZ, " " ; : PRINT0147+4O+ZZ , " "5 

1940 IF H2=0 THEN G0SUB3120: PRINT04BO, " ":PRIN 

T" Der Hase gewinnt ! ": PRINT" " : END 

1950 IF LEN (AB*) =1 THEN GOTO 2240 
1960 PRINT01O7+4O*ZZ, AAS; " " 5 
1970 EI*= INKEY*: IFEI*=" "THEN1970 


RI =8 



0 

0 

0 
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1 980 PR I NTE I*; : G0SUB279Ö 

1990 IF EI$="@"THEN PRINT@107+40+ZZ, "Du gibst auf " ü : END 
2000 EJ$=INKEY$s IFEJ$=" "THEN2000 
2010 PRINTEJ$; : G0SUB2750 

2020 F1=ASC(EI$) -65: IF F1<0 OR Fl>7 THEN 1930 
•2030 F2=VAL<EJ*)-i: IFF2>7 OR F2<0 THEN 1930 
2040 F'RINTOl 1 1+40 +ZZj u "5 

2050 PRINTS1 1 1+4ÖH C ZZ» " nach " ü 
2060 IF S (FT,F2> >-lTHEN 1930 
2070 E I f = I NKEY* : I FE I THEN2070 

2080 G0SUB2790 
2090 PR I NT@1 1 7+40fZ Z , E I *S 
2100 EJ$=INKEY$: IFEJ$=" ,, THEN210Ö 
2110 IF EJ$=CHR$(13) THEN 1930 
2120 PRINTE 5 :G0SUB2750 

2130 F3=ASC(EI$>-65: IF F3<0 OR F3>7 THEN 2040 

2140 F4=VAL(EJ$)-l: IF F4>7 OR F4<0 THEN 2040 

2150 IF S(F3,F4)<>0 OR F4-F201 OR ABS (F3-F1 ) < >1 THEN 2040 

2160 SP=GS(F1.-F2> :FOR I=IT05: SW=S (Fl , F2) : GOSUB 2570 

2170 GOSUB 2610 

2180 SW=0: GOSUB 2570 

2190 FQRJ=1T020: NEXTJ 

2200 NEXTI 

2210 S (Fl 9 F2> =0: S <F3» F4) =-l 

2220 SW=-1:SP=GS(F3,F4> : GOSUB 2570: GOSUB 2650 

2230 GOTO 1210 

2240 IF ZE=1 THEN 2300 

2250 IF H2-Zl/4<2. 5 THEN ZE=1:G0T0 2300 
2260 READF1 : READF2: READF3: READF4 

2270 PRINT@107+40*ZZ, AA$; " “ ; GG* (Fl ) ; GZS (F2) i " nach " ; GG* <F3) ; GZ$ (F4) ; 
2280 GOTO 2160 
2290 GOTO 2300 

2300 FZ=0: FDRI=1T08: E ( I > =15: NEXT I 
2310 PRINTiüO, 

2320 FORI =0T07 : F0RJ=0T07 
2330 IF 5(1 ,3)0—1 THEN 2460 
2340 IF 1+1 >7 OR J+l>7 THEN 2400 
2350 IF S(I+1, J + DOO THEN 2400 
2360 S(I, J)=0:S(I+1, J+l)=-l 
2370 GOSUB 2890: FZ=FZ+1 : E (FZ > =H 
2380 S(I, J)=-l:S(I+l, J+1>=0 

2390 El (FZ ) =1 : E2 (FZ ) =J : E3 (FZ > =1 + 1 : E4 (FZ ) =J + 1 
2400 IF I — KO OR J+l>7 THEN 2460 
2410 IF S<I-1, J+DOO THEN 2460- 
2420 S(I, J)=0:S(I-1, J+1>=-1 
2430 GOSUB 2890: FZ=FZ+1 : E (FZ ) =H 
2440 S ( I ? J ) =-l : S (.1 — 1 > J+l ) =0 

2450 El (FZ > =1 : E2 (FZ) =J : E3 (FZ) =1-1 : E4 (FZ ) =J+1 
2460 NEXT J , I 

2470 FOR I=0T012: FOR J=1T08 
2480 IF E ( J ) < > I THEN 2510 
2490 F1=E1 (J> : F2=E2 ( J) : F3=E3 ( J ) : F4=E4 ( J> 

2500 1=12: J =8 

2510 NEXT J 5 I . 

2520 GOTD 2270 

2530 C0L0UR2: PRINTOGB? CHR$ ( 136) ? CHR$ ( 137) 

2540 PRINT@GB+4Ö, CHR$ (138)5 CHR$ ( 139) 5 
2550 C0L0UR5:PRINT@GB+B0,CHR*(140> ;CHR*(141) 5 
2560 C0E0UR4: RETURN 
2570 I F SW=- 1 THEN C0L0UR2: PR I NT@SP, CHR$ (132) ; CHR* ( 1 33 ) : PR I NTSSP+40 > CH 
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R$ (134) ; CHR$ < 135) : C0L0UR4: RETURN 

2 5 BO IF 3W= 1 THEN C0LDUR5: PRINTSSP, CHR$ ( i2S) ? 'CHR* < 129) : PRINTSBP+40, CHR 
$ <130)3 CHR$ ( 131 ) s CÜL0UR4n RETURN 

2590 IF SW-0 THEN PRINTSSP, CHR$ ( 169) ? CHR* < 169) : PRINTSSP+-4Ü, " " 

2600 RETURN 
2610 PLAY (1,4, 1,15) 

2620 FDR J=1TD20: NEXTJ 
2630 PLAY ( 1 1, 1,0) 

2640 RETURN 

2650 PLAY(1,3, 1 , 15) 

2660 FOR J- 1 TÜ50: NEKTJ . 

2670 PLAY ( 1 , 1,1,0) 

2680 RETURN 
2690 FDR J=2T07 
2700 FORJ 1 =2T07 
2710 PLAY (KJ, J 1,15) 

2720 NEKTJ 1 , J 

2730 S0UND6,30:S0UND7,7: 30UNDB,- 16: SQUND9, 16: S0UND10, 16: S0UND12? 16: 30ÜN 
Dl 3,0 : ' 

2740 RETURN 
2750 PLAY (1.5, 1, 13) 

2760 F0RJ=1TD20: NEKTJ 
2770 PLAY <1*1, 1-0) 

27S0 RETURN 
2790 PLAY <1, 6, 1, 13) 

2800 FÜRJ=1T020: NEKTJ 
2810 PLAY (1 , .1,1,0) 

2820 RETURN 
2830 FDR J=1TÜ5 
2840 PLAY (1,5, J, 15) 

2850 FORJ 1=1T020: NEKTJ 1 
2860 NEKTJ 
2870 PLAY ( 1 , 1, 1,0) 

2880 RETURN 

2890 H=0: IF Hl -KO DR H2-K0 THEN H5=2: G0T02910 
2900 H5=S(H1— 1 , H2-1 ) 

2910 IF Hl+1 >7 DR H2+l>7 THEN HM=2:G0T0 2930 
2920 HM=S ( H 1 + 1 , H2+ 1 > 

2930 IF Hl-2<0 GR H2-2<0 THEN H6=2: G0T02950 
2940 H6=S(H1-2,H2— 2) 

-2950 IF H2-2K0 THEN H7=2« GDT02970 
2960 H7=S (Hl , H2-2) 

2970 IF Hl+1 >7 OR H2-K0 THEN H8=2: G0T02990 
2980 H8— 5 (Hl+1, H2- 1 ) 

2990 IF Hl -KO DR H2+l>7 THEN HN=2: GOTO 3010 
3000 HN=S (Hl -1 , H2+1 ) 

3010 IF H.1 +2 >7 DR H2-2<0 THEN H9=2: G0T03030 
3020 H9=S ( H 1 +2, H2-2) 

3030 IF H5=0 AND H6=0 THEN H=H+2 
3040 IF H5=0 AND H7=0 THEN H=H+2 
3050 IF H8=0 AND H9=0 THEN H=H+2 
3060 IF HB=0 AND H7=0 THEN H=H+2 
3070 IF HM=0 THEN H=H+1 

3080 IF HN=0 THEN H=H+1 

3090 IF H5-Ö THEN H=H+1 

3100 IF H8=0 THEN H=H+1 

3110 RETURN 
3120 FDR L=1TD5 
3130 F0RI-2T07 
3140 FDRJ=2TD7 
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.v , U E L L 

| una Personalcomputer f p r ei s wert 

Sandkaul straße 84 - Telefon: 0241 - 232 17 

5100 AACHEN 

Wir senden Ihnen gerne unseren Softwarekatalog mit über 100 Programmen! (Natürlich kostenlos!) 


GEMINI 10X - so gut haben Sit 

für so wenig Geld noch ni» gedruckt ! 
dar GEMINI I 0X ist »in Normalpap i »r - Matr i xdrucker uon Star, 
mit e i ntr Geschwindigkeit uon 120 Za I chen/s«e . , »in 9-Nadt I 
Oruckkopf sorgt für btst» Sehr i f tqual i t a t , dar Druck wird 
natürlich bidirektional und druckwtgop t imi er t ausgeführt. 
Hochauflösende Grafik ist durch Ei na» I nad» I an s t tuerung möglich) 
di» Auflösung ist uon 480 bis 1920 Punkt* pro.2»i I« wählbar! 
ASC1 I-Standard-Z» ichensatz , 88 I n t»rna t i onal » Sondern» I Chen , 
Kursiv-Schrift, Blackgrafik, Gr af i ksond»rze i ch»n , unzählig» 
Schriftbrei t»n, fett-, breit-, »litt - Druck, etc, sind genauso 
selbstverständlich wl» ein ladbarer Zeichensatz und MACR0- 
ct Instruction». Oer Traktor für Endlospapier laßt sich uon 7,5 cm 
E bis 25 ,4 cm vers t e I i »n . Ei nze I bl ät ter können eingespannt werden 
(Gurnmiwal :») | sogar eine Halterung für Rollenpapier ist Im 
' Frei s enthal ten. Ausl i eferung mi t Centronics - Parallel - 
Schnittstelle. RS 232C als Zubehör lieferbar. 

Art. 348 1195.- DM 


Bei NN 

erhöht 

sich das Porto auf 10.- 0M pro Karton. 

Format 



grün# Lese- 

Karton 

Art. 

Pre i s pro 

Br» i t» 

X 

Länge 


strt.ifvn 

Inhal t 

Nr. 

Kar ton 

240 mm 

X 

12* 

1 f a c h 

n* in 

2000 Bl t . 

370 

48.- DM 

240 mm 

X 

12* 

1 fach 

ja 

2808 Bl t. 

371 

48.- DM 

240 mm 

X 

12* 

2f ach 

nein 

1900 Bl t . 

372 

45.- 0M 

240 mm 

X 

12* 

2f ach 

ja 

1808 81t. 

374 

45.- DM 

240 mm 

X 

12* 

3f aCh 

n» i n 

750 Bit. 

375 

79.- DM 

250 mm 

X 

12* 

1 fach 


2000 Bl t . 

374 

58.- CM 

338 mm 

X _ 

3* 

1 fach 

j a 

2080 Bl t. 

377 

52.- DM 

375 um 

X 

12* 

1 fach 

Ja 

2888 Bit. 

378 

59.85 DM 

Endlosetiketten, Addressauf k 1 »ber; Größe 

88.9 

x 35. 7 irm 

Trag#rb*ndbrt i 

te 115 

mm, Kar ton i nha 1 t 4006 

St. j 

l -bahr, i g 



EG 2000 Cotour Genie mit Id Farben und neuen ROM'»' 595.- DH 

EG 2011 I4K-RAM Steckmodul , erwe i ter t ihre Colour - 

Ar t ,304 Geni e auf 32 K RfM . 120,- H ' 

EG 2BI2 DruckeranschluSkabel ml t Stecker und 

Ar t .305 Par al I e I por t -Konverter (Centronics) 98.- DM 

Art. 440 Ka 'wie Art. 305 jed. mit Tr e i ber bau s te i n 198.- DM 

EG 20 I 3 J.' ck-Sel ( 2 Propor 1 1 onal -Joy* 1 1 cks::. 

Ar t . 304 mi ■ ia I og-Dig I ta I wandl er sowie Tastatur) 245. - CM 

EG 2014 pa- ender Kassettenrecorder mit Sand - 

Ar l .307 Zählwerk . •; ,125.- CM 

EG 2017 heruoragend geeigneter Kassse t tenrecorder 
Art. 308 Jedoch ahne Bandzahlwerk 09.- DM 

Neu* ROM'» : neu» Roms für da* Cotour - Genie 

Infos und Preise gesondert anfrageö 1 

Sony CHF 40 Programm - Kassetten bester Qual i tat 

Art. 311 langjährig bei uns erprobt. I0er-Pack 28.- OM 

Schaltpläne Sammlung der Bestückung»- . und Schal t- ^ 

Art. 313 Pläne für das Colour Genie und Zubehör 15.- DM 

Technisches enthält obige Schal tpl ansamml ung, sowie 
Handbuch B I ockd I agr amme , Beschreibungen und Hinweise 

Art. 314 zum Netzteil, CRTC-Chip, PSG-Ch I p , CPU , etc. 

CPU-Be f eh I ss.i t z , Ansch I uGbe 1 egung , Hinweise 
zum Parallelport und serieller Schnittstelle. 
Kasse t ten in ter face ii.e.l.m. ört. 31a :: 49.- OM 

RCM - Listing vollständig kommentiert, mit kommentierten RAM 
uon .. Adressen, I/O Adressen, Ueterpreor vrm 1 i s t i n g , 

L. Röckrath uiele Tabellen u.a. Art. 453 59.- DM 

ROM- Listing wl» oben , j edoch m i t einer guten Einführung und : 
uon Begl e I t tex ten zum Listing; Insbesondere für den 

Klaus Kämpf Anfänger geeignet. Art. 4ii 49.- CM 

Colour - Genie Bücher; 

mit vielen Tips und Tricks zum Cöl.o.ür Genie, 
Interessanten Programmen und Programmierhilfen! 
Band I - Art. 462 / Band II u Ar t , 4 63 

Preis pro Band i 39 . - CM 
Super Joystick für das. Colour Genie 1 
Aus eigener Entwicklung. Lauft mit fast allen 
Sp i e 1 Programmen (Motten, Wurm, Hektik, Andromeda, 
ElSj lnuasion, etc. . . . ) Der qroGe Griff mit Feu- 
erknopf liegt gut in der Hand, ein weiterer Be- 
dienknopf (RETURN) auf dem Gehäuse. 

Art. 315 Typ Power Joy A; (zum Elnlöten) 75.- DM 

Art. 314 Typ Power Joy 0! wird einfach eingesteckt 98.- OM 

Stecker 29pot. Stecker Teiste mi t Kontakten 

passend zum Para I I e I -Por t Art. 317 24.59 DM* 

50pol . vergoldete Stecker lei »te 

passend zum Systembus Art. 318 29.80 DM“ 

EPROH - Einschub; Plastikbox, pass'genru auf den 50pol . Du» des 
Col our-Gen i e . Hit SB- ,c-^\ rgolde ter Stecker I ei ste 
und Eprom-Dekodi • yrtÖ'* Leer .Passungen für Eproms 
Typ 2532. Endl T\J r.ien S i » Ihre Programme direkt 
beim Einschal te» des Gerätes zur. Verfügung . 

Art. 459 39. - DM 


POWER 

Joystick 
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Dr, E. D. Brewig 


Edel -Basic 



Mit Text-Editoren kann man ,nur' 
Text erzeugen! Kann man nur 
das? Ist denn z.B. ein BAS IC- 
Programm nicht zunächst u. in er- 
ster Linie auch nur ein Text? 
Nachdem für die verschiedenen 
Micros leistungsfähige Text-Edito- 
ren zur Verfügung stehen, fragt 
man sich: Kann man damit nicht 
auch Programm-Texte erstellen - 
sozusagen Editor-erzeugte-Logik 
(Edel)? Und wie lassen sich sol- 
che Texte gestalten u. bearbeiten; 
damit sie von Mensch u. Maschine 
verstanden werden. An einem 
BASIC-Beispiel wird hier skizziert, 
was man tun kann, u. wie es funk- 
tioniert. Für TRS 80 u. Video- 
Genie kann man ohne Änder- 
ungen loslegen - wenn man schon 
einen Texteditor sein eigen nennt. 

1 . Basic normal 

Bäsic-Zeilen beginnen grundsätz- 
lich mit Zeilennummern, den Mäd- 
chen für alles. Sie stellen die Ord- 
nung her, und sie weisen den Be- 
fehlen RUN, GOTO, THEN, 
ELSE, und GOSUB den Weg zu 
ihren Zielen. Nach dem Start des 
Systems erscheint irgendwann; 
Basic's READY. Danach kann 
man, wenn man will, kunterbunt 
numerierte Zeilen eingeben. Basic 
bringt, geleitet durch die Num- 
mern am Anfang, Ordnung ins 
Gestrüpp, Hat man nach Einge- 
bung; oder Plan getippt, hat es 
keinen "Netz-Peak" gegeben, und 
hat man richtig gedacht, so steht 


zum Schluß das fertige Programm 
im Memory. Nun folgt zu nächt- 
licher Stunde der abschließende 
Test. Fast alles läuft wie geplant, 
nur, na ja, manche Zahlenwerte 
scheinen etwas merkwürdig. Aber 
das haben wir gleich! Wo wurden 
doch diese Kurvenpunkte berech- 
net? Ach, und die Verschiebung? 
Von Zeile 250 GOSUB 2080 von 
da nach 3030? Wie arbeitet doch 
gleich GOSUB 5060? - Ah, ja, 
aber dann GOSUB 460:GOSUB 
50 ....? 

Später: Verflixte Zeilennum- 
mern! Noch mal von vorn... usw... 
Hand aufs Herz: Können Sie Ihre 
Basic-Programme gut lesen und so- 
fort verstehen ? 

2. Einfach REM? 

Klar, Zahlen „sprechen" nicht, 
besser helfen Worte. Eine erste 
leidliche Verbesserung ergibt sich, 
wenn hinter jedem Sprung durch 
REM das Sprungziel in Worten an- 
gegeben wird. Natürlich sollte man 
die einzelnen Programm-Abschnit- 
te durch auffällige Kapitelüber- 
schriften kennzeichnen. Wie wär's 
mit folgender Art? 

(Siehe Beispiel!) 

So finden Sie ihre Programm-Ab- 
schnitte, Unterprogramme oder 
Module garantiert. Eine ausführ- 
liche programminterne Dokumen- 
tation erspart ausserdem lästiges 
Blättern in Unterlagen während 
der Testphase. Je mehr Schnör- 
kel Ihr Programmtext enthält, um- 


so schneller kann Ihr Auge „zu- 
greifen". Schön u. gut werden Sie 
denken, aber wer soll das alles 
noch zusätzlich eintippen? Und 
so kommen wir zum eigentli- 
chen Thema: Warum müssen Sie 
z.B. die Zeilen 114 u, 115 noch- 
einmal eingeben? 

3. Leistungsfähige Editoren 
Sie müssen nicht, wenn ... - 
wenn Sie z.B. einen Bildschirm- 
Editor haben. Sie fahren dann 
einfach mit dem Cursor auf die 
„0” von 1 10 u. drücken 5 dann 
ENTER bzw. RETURN Die Zeile 
1 15 wird durch Kopie der auf 
dem Bildschirm veränderten Zeile 
110 ins Memory gewonnen (für 
Commodore-Fans kalter Kaffee! 
Nicht so beim TRS 80 oder VG). 
Nun könnten Sie die Zeilen 1 10 
bis 115 ja auch im ganzen Block 
kopieren - z.B. zehnmal. Sie er- 
halten dann schon das Gerüst 
für 10 Blocküberschriften. Die 
ganz ähnlichen Texte, die sich 
nur um bestimmte Namen oder 
Bezeichnungen unterscheiden, 
können Sie leicht durch 'TAU- 
SCHE'- oder .CHANG E'-Befehl 
anpassen. Die Zeilen-Nummern fü- 
gen Sie stets ganz zuletzt ein. Bei 
großen Maschinen bzw. deren Edi- 
toren für die Programm-Erstel- 
lung gibt's für alle diese Operati- 
onen Such-, Änderungs und Ein- 
fügungsbefehle. 

Für die ganz kleinen (Micros) 
existieren i.a. nur die bescheide- 
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Beispiel zu REM-Zeilen 


1 10 R£K 
11,1 RErt * 

HZ REH * PRO-RAMH -VORBEREITUNGEN (CLEAR/DEFXNT/DIil. . . ) 

113 REM* STAND 1/04/84 

114 REH * 

1 10 REH 


nen in Basic eingebauten Mög- das den Editor .versteht'. Wir von Basic (s.Beispiel-Programm) 

lichkeiten. Aber lösen Sie sich können somit unsere (DISK-) Ba- Wer schon mit Assemblern gear- 
einfach für den Moment von Basic. sic-Programme mit solch einem beitet hat, kennt die Struktur 
Diese Programme sind doch ei- Editor erstellen, auf Diskette des Textes. Im vorderen Teil 
gentlich nichts anderes als ASCII- speichern u. als Programm laden einer Zeile sind eine bestimmte 
Text, der irgendwann einmal von bzw. ausführen. Aber das ist noch Anzahl Stellen (hier 14} ent- 
der Tastatur in die Maschine ge- lange nicht alles! weder frei oder von einem Label 

kommen ist - durch schlichte 5. Der Gag mit den Labein besetzt. Für diese werden durch 

ASCII- (oder allgemeiner : co- Sicherlich haben Sie inzwischen den Assembler in der Übersetz- 

dierte) Zeichen. Für Texterstel- schon mehrfach auf das weiter ungsphase die absoluten Werte 
iung bietet der Software-Markt unten abgedruckte Programm ge- i.a. Adressen ermittelt u. einge- 

aber einige sehr gute Text-Edi- schielt. So sieht ein Basic-Pro- setzt. 

toren. Damit können Sie alle grammtext aus, bevor er durch Zurück zu unserem Text: Für 

möglichen Texte erstellen vom Zeilen-Nummern verunstaltet wird die Programmbefehle stehen bei 
Brief bis zum Buch. Sie können - lesbar oder nicht? Jedes Sprung- einer allgemeinen Zeilenlange vom 
Begriffe suchen g. ändern. Sie ziel hat einen Eigennamen (das 60 Zeichen ,, nur noch" 46 Zei- 
können Abschnitte verschieben Label). Sie sehen auch, daß zwi- chen zur Verfügung. Dies zwingt 
oder von Diskette einfügen. sehen den Sprungzielen noch dazu, nur das unmittelbar Zu- 
Umgekehrt gibt es fast nichts, Platz bleibt, sodaß der Blick so- sammengehörende auf eine Zeile 
was mit solchen Editoren nicht fort dort hängenbleibt. Dazwi- zu schreiben. Für das Verständ- 
irgendwie geht - nur Denken sehen erscheinen die Anweisun- nis eines Basic-Textes kann dies 
muß man noch selbst -. Viele gen solo oder sinngemäß zusam- jedoch nur von Vorteil sein. Man- 
von Ihnen werden ein System ba- mengesetzt (. als Trennzeichen), che Befehlsstrukturen erweisen 
sitzen, das mit Disketten-Lauf- Die Sprungzielbezeichnungen (La- sich allerdings als zu lang für ei- 
werk u. Drucker zusammen arbei- bei) sind so zu wählen, daß sie im ne Zeile. Für diesen Spezialfall 
tet. Ein solches System eröff- Text nur für diesen Zweck auftre- ist die obengenannte „Fortsetz- 
net Ihnen die Welt sehr leistungs- ten u. sonst nicht. Hier habe ich ung" vorgesehen, bestehend aus 
starker Text-Editoren. Für TRS 80 das Label durch '* ' ver- den Zeichen "am Ende der 

bzw. Video Genie benutze ich deutlicht. Die Kleinschrift ist fortzusetzenden Zeile (ohne die 
Newscript (von Prosoft, Vertrieb nicht notwendig. Hingegen müs- Anführungszeichen) u. dem Text 
Hp. Schmid, 6906 Leimen, Lenau- sen die Eingrenzungen sein, damit der Folgezeile. Diese kann vorne 
str. 2). Die Ausgabe dieses Ed i- jeweils das ganze Label erkannt anfangen. Der dort stehende Text 
tors u. anderer erfolgt als eine u. nicht nur auf Teile zugegrif- wird nicht als Label mißverstan- 
ASC II -Datei auf Diskette. Diese fen wird. Als Eingrenzung kön- den. 

Datei läßt sich z.B. durch INPUT nen zwei beliebige Zeichen dienen, 6. Vom Text zum Programm 

1,# AS Satz für Satz lesen, die sonst innerhalb der Labein Haben Sie bereits einen Editor? 

4. Ein pfiffiges Betriebssystem nicht Vorkommen dürfen. Label Wenn nein, dann machen Sie in 
Wie macht man aber aus dem Text ist im übrigen alles in den ersten Gedanken mit. Sie tippen das Bei- 
ein lauffähiges Programm? Eine 14 Plätzen einer Zeile, wenn spielprogramm einfach als Text 
ganze Reihe von Betriebssystemen a) die Zeile vorher nicht mit ein u. speichern es auf Disk ab. 
(f DISK-BASIC) können Basic- " : & " endet; Im nächsten Schritt beginnen Sie 

Programme auch in ASCII -Form in diesem Fall handelt es sich einen File, auf den Sie den Text 
von Diskette laden. Dies ist z.B. um die Fortsetzung; zunächst kopieren (bei NEW- 

bei TRSDOS u. NEWDOS der b) die Zeile selbst keine Fortsetz- script durch HF (hole File) 

Fall. Nun hat man alles beieinan- ung darstellt, u. am Anfang «neuer Name> ). Nun ersetzen 

der: Einen um Größenordnungen kein "REM", "rem" oder" Sie - das ist heute einmal Handar- 

leistungsfähigeren Editor als Ba- enthält; andernfalls handelt es beit - alle Zeilenfänge durch Zei- 

sic selbst u. ein Betriebssystem sich um REM-Zeilen im Sinne lennummern u. eliminieren alle 
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Leerzeichen bis zur Spalte 15 
(oder 14 je nach Geschmack). 
Dort, wo die Zeilen direkt mit 
" ' " anfangen, schreiben Sie die 
Zeilennummern vor die Zeile. 
Achten Sie darauf, daß Ihr Editor 
die verlängerte Zeile nicht zer- 
hackt (NEWSCRIPT: FL Aus.). 
Immer wenn Sie ein Label erset- 
zen, tauschen Sie global (im 'gan- 
zen Text, von Anfang bis Ende 
alle) dieses Label gegen die ent- 
sprechende Zeilennummer aus. 
Schon dieser Globalbefehle wegen 
lohnt sich die Anschaffung eines 
solchen Editor-Programmes. 

Nur bei den :&-Stellen wird's 
in manchen Fällen schwierig. Hier 
müssen, Sie für die lauffähige Ver- 
sion eine einzige Zeile erzeugen 
(NEWSCRIPT: FLuss AUS und 
VErbinde-Befehl), Wenn keine 
Tippfehler gemacht worden sind, 
sollte zum Schluß die lauffähige 


ASCII-Version auf der Diskette 
gesichert werden — andernfalls 
werden Sie mit einem "großen" 
Editor keine Schwierigkeiten ha- 
ben, Fehler zu korrigieren. 

Spätestens beim Abtippen wird 
Ihnen auch die Erleuchtung kom- 
men, daß das Beispielprogramm 
genau das erledigt, was Sie für die- 
ses mal von Hand tun müssen, es 
erzeugt Zeilennummern und er- 
setzt Label unter den o. a. Rand- 
bedingungen. 

7. Schlussbemerkungen 
Natürlich ist das Beispielprogramm 
der Ansatz zu einem allgemeinen 
Übersetzungsprogramm (Compi- 
ler). Was hindert Sie daran, z. B. 
Blockstrukturen wie 
IF (Bedingung) 

THEN (Statement 1 ) 

(Statement n) 

ELSE (Statement x) 


(Statement m) 

ENDIF 

oder 

WH ILE (Bedingung gültig) 
(Statements) 

REPEAT 

und ähnliche herauszufiltern, au- 
tomatisch mit entsprechenden I F-, 
THEN-, ELSE-, GOTO- bzw. GO- 
SUB- Befehlen zu versehen, um 
zum Schluss ein lauffähiges Basic- 
programm zu erhalten? Die von 
mir bereits eingebaute Erkennung 
der REM-Zeilen kann vielleicht Ihr 
Wegweiser sein. Ein weiterer 
Schritt wäre dann das Ersetzen der 
Basic-Schlüsselworte durch Tokens 
und die interne Verknüpfung der 
Zeilen. Oder: Die Übertragung in 
Maschinencode.... 

Vielleicht kommt die nächste 
gute Idee ausgerechnet von Ihnen. 


1 x * k * * x * * * a * * » :k 'm x * kk x k * x x « X * * * * x x x * x % * x * x % k :< k * x * *. :u**»** *. x 
1 x NUMEV«5/ASC * 

1 x wandelt labeior lent^erten FASEC-Text in lsuf f hehii-weri » * 
1 * riüiüßier .nor ieivt i er-tch BASIC-ASCIT-F ile u»i . ! » 

1 * . Label felöl 14» . Ze tleriTFor tselgunG durch *:&’ 

’# Dr .t.Ö.Brfcwis» Overath 4/64 x 


~ Freier erori« -Vor-boroituriut!ii 


ClEAR 200 C- »DEFIN.T A-Z 

D£F FN>Vb < X 1 ) --RIGHT* < STR"» CX 1 > »LE N ( STRf <X 1 > > 
Rtr! üai-lödlet 
DIft L»J».I»Z! »N»ÄN» DZ 
DI M A t< » ß l> » F f » 0 $ » t B $ » C K £ 

DI ft LAß < 1 99)» LA ! (199) 

LE T LR*=SF-= EN&$< i-^SZ) :CR$=d>m<i31 
LET L~19V I L r3p6'I -S trjrk HUin tur » sloodl ! 

— - Benutzer -I/G ■ Eine, aber, . I 

— AußG/file & ' Quell text- ----- ! 

— - zwei Dateien eroeffnen I 

Ze.il onriurtier .1 eruirni clef» I 

LE E 2N~1 0 i DZ---1 ö 

PRINT 11 1.2h: 11 5 ZN? “ » Schritt: * 5 DZ 
INPüT fl . ZEILENNR . I * > ZN 
INPUT “ Z-SCHRITT I " 5 DZ 
LINE T.NPUT*OUT-F .-SPEC? 

LINE INPUT "IN-FILESPEC? 

II- ü$OF* THEN' kfileopl' 

PRINT " ACCESSrlLE-AUSGABEFILE ERROR 0 
CLOSEIEND: RUN 


1) 
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OPEN -I-fifF* 

LET Z ! =ZN I PRINT “PASS 1* 

IF EOF < i > = 0 THEN *flacc: 

CLOSE ltPRINTFf.»" enthae.lt Keine Daten ! 


GOTO *user 


*f lacc 


IF EOF < 1 > THEN #pass2 * 

GOSUB *io3dai::iF J<0 THEN *eass2{ 

IF LEFT$ IA$ (HX>LE$ THEN «remarki 

REH hier Behandlung kein Label 

LET A$=FNN$<Z ! ) +RIGHT$ < A$ » J-l^ ) tGOTO *sehle 
REM hier Label» also auf Pass2 warten 
IF LEFT $ ( A$ » 3 ) <> * REM “ 1 8 . 

AND LEFT $ < A$ » 3 > <> ‘ rem * AND LEFT* <A$> 1 )<>’ ' * 
REM — — Remark» kein Label — - 
LET A* : ?FNN$ < Z ! ) +A$ t GOTO «schle * 

LET LA$-=LEFT$ (A*»14> 

LET J=XNSTR(A* » ’ «KIF THEN *labt 

IF J>1 THEN L£$-LEFT$(A4» J-l) JGQTO *labt 
PRINT« LABELFEHLER IN ’JPRINTA* 

LINE INPUT“ LABEL (NEU)? * » LAi 


THEN *label 


Klabel 


Zei lennumiTier +i_3bel merk er 


naechste Zeile erseueen 
oder 

Schleifen- Ende F'assi 


PRINT*2»A$FCR$» 

LET Z!=Z!+DZ:iF ZK65510 THEN *f laccj 

PRINT “ Zei lennumnier over » waehle, ZN»DZ kleiner! 

close :for 1=0 to 2 ooo:next:run 


2. Durchlauf» nachdem die Labeldatei im Memory nunmehr i 
vor liest» LA ! ( 0 , . . N ) und LA* < 0 . . . N > . I 

N® Anzahl der Zei lennummer/Lsbel Kombinationen. Es muss 1 
nun Jede Zeile auf das Gegebenenfalls auch mehrfache ! 
Vorhandensein von Labein uehererueft werden. Bei eosi-1 
tivem Fund muss die nuGehoer iee Zeilennummer ei nee- ! 

set:r.t werden. I 


CL0SE1 JCL0SE2 JPRINT “ PASS 2 * t LET N=LJL=0 tZ ! =2>\ 

OPEN " I * »1» 0$ J OPEN «0 “ » 2 » « BRZWr/TXT 1 1 « 

REM Die Diskette muss sowohl die Datei 0$ als auch die 
REM Zwischendatei BRZWF/TXT fassen koennen ! 

IF EOF ( 1 ) THEN *elosJ 


aeusserste Schleife 
Fuer alle Zeilen . * 


GOSUB xioada* 


I - Suchschleife ueber alle Label - I 
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Suchschleife inner h* Zeile 
hei Gleichem Label 


#such 


LET J-INSTR < A$ » LAi ( I ) ) 

IF J=0 THEN *n>;ti; 

REM ein Label erfolereich Gefunden; 

IF J>1 THEN *mid t 

REM Label als Sprunesiel vorne; 

LET Ai^FNNtC LA MI > >+RIGHT$ < Ai » LEN ( A$ ) -14 > 
GGTO *such; ;REM weiter innere Schleife 
LET Lt-LEFTt < Ai» J-l ) 

Ri = RIGHTi ( Ai » LENC Ai >-LEN < LAi <I> ) -J+l ) 

LET Ai=Li+FNNi (LA ! (I>)+R$ 

GOTO «such:: REM weiter innere Schleife 


NEXT I 


f ertise Zeile auf DISK 
naechste Zeile oder Ende 


PRINT*2rAt#C.R$; JIF EOF < i > = 0 THEN *f2acc 


Zwischenfile auf Auseabefile 
danach loeschen 


CLOSE; PRINT -KOPIE ZWISCHENFILE AUF 
OPEN-I- ,1, “BRZWF/TXT* ;0PEN’0" »2»0t 
IF EOF < 1 ) THEN xfir.; 

LINE INPUT*l,Ai;pRINT*2»Ai;CRi} 
GOTO Kcof-aJ r 

close ;kill “BRZWF/TXT" 


/LAB schreiben 


LET J=INSTR<0$» -V ) MF J--=0 THEN *ke>ct ; 

LET Oi=LEFTi(Oi,J-l> 

LET Oi^Qi+VLAB“ TPRINTOi“ -FILE SCHREIBEN 
OPEN -0* ,2fO$;PRINT#2»N»CR$; 

FOR I-=0 TO N;PRINT*2»LA! <I>; * r-;LA$(I>;CR 
NEXT i; close; END 


Push Label & Zeilennummer 


xpushl 


LET L=L+i;iF L>199 THEN L=B 
LET LAi (L >=LAi *LA ! (L>=Z! 
RETURN 


Lade neuen Zei lenstr ins 
Ai von * 1 f J= 1 en ( Ai ) 


LET J=-i;iF EOF < 1 ) THEN Xnofort; 

LINE INPUT*l»A*;iF Ai=“ “THEN Xloadat; 

LET J-LEN ( A$ ) 

IF RIGHTi(Ai,2K>“ THEN Xnofort; 

REM FortsetzuriG beachten 

IF EOF CD THEN PRINT “FILE ENDE ZU FRUEH ! 


xfortl 


STOP ; RETURN 
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SUPER EDIT 

Ein echter Bildschirm - Editor für Ihr ColoUr Genie. 

Sl e wandern ml t dem Cursor über den Bi I dsch i rm und verändern so 
In recht einfacher Ue I se Ihr Programm. Sie können Ihr Programm 
Zei 1 enwel se vor- oder auch rückwärts Scrollen, überschre I ben 
und Verdoppe I n non Ze I I ennuirmern i st ab sofort kein Problem 
mehr. Aber das ist noch nicht alles: Zusa tif unk t I onen erlauben 
Ihnen das Zusammenhängen von Programmen (MERGE-Befehi > , Zeilen 
können aufgetrennt werden, verschiedene Zellen können iu einer 
ausammengef asst werden, u.a. 

Art. 094 SeS 39 .- 0M 

MONITOR 1.2 

ein einfacher Hase h i nensprachemon I tor mit HEX und ASCII - Dump, 
Edi t-Funk t i on , Laden und Abspeichern von Maschinenprogrammen, 
HEX-DEZ Unwandlungs- und Rechenroutine, etc. 

Art. 89? 3?.- CM 

COLOUR - FORTH 

Eine neue Programmiersprache für Ihr Colour Genie. 

Falls Sie FORTH kennen, I st all es klar, falls nicht, bitten wir 
9ie, sich danach zu erkundigen. FORTH hier zu erklären, wird* 
den Ramen dieser Softwareliste sprengen. Im Lieferumfang Ist. 
ein Anleitungsbuch, das auch FORTH - Neulingen die Sprache 
erklärt und In die Benutzung einweist. 

Art. 099 93.- DM 


DATABASE 

Damit wird Ihr Computer zur Adresskar te i . Sie können damit 
Namen, Adressen, Tel. Nummern, Bemerkungen u.a. abspeichern, 
nach wer sch i edenen Gesichtspunkten sortieren, suchen, aus- 
drucken, etc. ... 

Durch Verändern uon DATA-Zeilen können Sie anstelle von 
Adressen auch andere Dateien mit anderen Bezeichnungen an legen, 
übrigens: die Daten, die Sie im Programm eingeben, werden 

nicht in DATA Zeilen abgelegt, sondern direkt auf 
Kassette abgespeichert. Sie können somit auch sehr einfach 
verschiedene Dateien miteinander verbinden. Dieses Programm 
wurde für Kassettenbenutzer geschrieben und speichert die Daten 
in einem besonders zeitsparenden Verfahren auf Kassette ab. 

Art. 097 SeS 23.- DM 
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LIEBE LESER! 

Um die GENIE DATA für Sie in Zukunft noch 
schöner und interessanter zu gestalten, müssen 
wir natürlich wissen, woran Ihr Hauptinteresse 
besteht, was Sie gern lesen, was nicht! 

Um das alles in Erfahrung zu bringen, haben 
wir den nachstehenden Fragebogen gestaltet, 
den Sie ausfüllen und an uns abschicken können. 
JETZT haben Sie die Möglichkeit, an der Ge- 
staltung der GENIE DATA aktiv mitzuwirken. 
MACHEN SIE GEBRAUCH DAVON! 

Füllen Sie den Fragebogen aus und schicken 
Sie ihn an: 

HEINZ HÜBBEN 

Redaktion Genie Data * Leserwünsche'* 
Mühlbachstraße 2 
D-5429 Marienfels/Taunus 


Ich besitze einen der folgenden Computer: 
H] Genie l+ll 
D Genie III 
D Colour Genie 

D Genie 16 oder kompatible 
□ TRS80 Mod. 1 
D andere Tandy 


anderen Computer: 


*************************************** 

2. Ich befasse mich hauptsächlich mit: 

D Hardware 

D Spiele 

0 Geschäftsprogramme 
D andere Software 

****** ****** ** * * * * * * * *.*.* *************** 

3. Ich besitze folgende Peripherie: 

□ Drucker 

Q Floppy-Disk 
EU Light-Pen 
Q Joystick 
Q Plotter 

Q Sprach-Synthesizer 
Q Grafik Tablet 

anderes: ..... 
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4. Ich bastele gerne eigene Erweiterungen für 
meinen Computer • 

D Ja D Nein 

*;* * * # *,* ***>.»« '*'*** * .» «> tt tt « * * «* », # * * ****** 

5 Ich benutze folgende Software: 

□ Spiele 

□ Textverarbeitung 
D Fibu 

0 Kalkulation ' 

andere:...::..;........ : ! 


6. Ich habe noch folgende Anregungen und Ideen 


Ulrich Groke 


:I0 CLS ’ LGF< 
i 1 FKEY1 =" 

L 2 FKEY2=" 

13 FKEY3=" 

14 FKEY4=" 

15 PKEY5- " 

16 FKEY6=" 

1B FKEY8=“ 

20 FOR R1=0 Tg: 56; 

30 FQRP 1 -B00TGB365TEP4 : GDSUB 1 280 : NEXTP 1 
40 FGRF' 1 = 1 60T0640STEF' 1 60 - GOSUB 1 280 : NEXTF' 1 
50 FQRP 1 ~ 1 96T06765TEF' 1 60 : GDSUB 1 230 : NEXTP 1 
60 C0L.0UR2 : PR I NT@ 1 72 ? " BLUMENVERSETZ EN " 

70 C0L0UR1 1 : PRINTQ244, "ge” ; CHR$ ( 160) ; "ehr. ;CHR$ ( 164; ;.'"on LUGroke D W 5C 
HR$< L5B) ? "ren" 

SO PRINT@324> "Die Bl u " ; CHR$ ( 1 59 ) ? " e die d " 5 CHR$ < 162) i " ";CHR$U£4> 

4 "er " ; CHR$ ( 160) 5 "et " 5 CHR$ ( 161)5 "en " 

90 PR I NTS404 > CHR$ ( 1 60 ) ' "oll" ; GHR$ ( 160) ? "t be" ; CHR$ ( 160) ; "teht a" 5 CHR* 
(162>;CHR$(160>5" 7 Teilen" 

100 PRINT@484> "Die" ? CHR$ C 160) "e 7 Teile k" ü CHR$ ( 156) ;"nnen n"5CHR 
$(162) ; "r” 

HO PRINTÖ564, "in einer be" ü CHR$ ( 160) 5 "t i " ; CHR$ ( 159) ? CHR$ ( 159) ;"ten Re 
ihenf olee" 

120 PRINT @6441 " " “ CHR$ ( 162) ? CHR$< 159) ; "ge" ? CHR$ ( 160) : "et " ;CHR$<161> ; "t 
werden. " 

130 PRINTS729, "Und nun ";CHR$(164) ; "iel Spa" JCHR$ l 160) ? CHR$ ( 160) 

140 PRINT@920, "Soll ich e" S CHR$ ( 160) ; " dir “ ; CHR$ ( 164) ü "or " ; CHR* (159) ? 
"achen? ( Ja=J/Nei n=N) " ; 

150 N$----INtEY$ x 

160 IF N$=""THEN150 [ ° 0 4O/ ^ 

170 IF N$="N"THEND=0: CLSs G0T0220 

1 BÖ IF N$=" J "THEND=2: GQTD20Q J 

190 GGT0150 ' • 

200 CLS:C0L0UR4 


0LGUF<2 ! 6ÜSUB44 1 








’i 
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ehe e" ; CHR$ ( 160) 


dir eena" ? CHR$ ( 16 


10 PRI|MT@920, "Dann 


CHR$ (160): 


0 GDSUB1750: CDL0UR2: PRTNTSB80 


230 Z=0:Pl=4l: Al $="•*" : GOSUB 1280 

240 FQRP2=1 60 Tü 640 STEP 120 

250 ft2$="*" ! GOSUB 1330 ( Cq 

260 NEKT P2 i G* 

270 P3=760: A3$="*" : GOSUB 1400 

280 P4=57 : GDSUB1 440 ^ 

290 PI =76: GOSUB 1280 

300 FÜR P2=195 TD 675 STEP 120 

310 G0SUB1330 

320 NEXT P2 

330 P3=795: G0SUB1 400 

340 PI =50: Al $=••" 1 " : GOSUB 12,80 

350 P2= 1 69 : A2$- "2 " GOSUB 1 330 

360 P2=289: A2$="3" : GOSUB 1330 / 

370 P2=409=A2$=" 4": GOSUB 1330 

380 P2=529:A2*="5":G0SUB1330 

390 P2=649:A2$=" 6": GOSUB 1330 

400 P3=769: A3$="7" : GOSUB 1400 

410 1F D>0 TUEN 430 

420 GOSUB 1730 

430 GOTO 730 

440 DATAOOO, 000, 056, 062, 062, 031 ,031 ,007 
450 DATAOOO, 000, 028, 124, 124, 248, 243, 224 
460 DAT AG 07 , 031 , 031 , 062,062, 056,000,000 
4/0 DATA224,24B, 248, 124, 124 ,028, 000, 000 
480 DATA024, 024, 060, 060, 060, 024, 024, 000 
490 DATAOOO , 000 , 060 , 255, 255 , 060 , 000 , 000 
500 DATA255, 255,255, 255, 255, 231 ,129, 000 
510 DATA 129, 231, 255, 255,255, 255, 255,255 
520 DAT Al 28, 192, 096,112, 056, 060,062,031 
530 DAT A03 1,015,015, 007 , 007 , 003 , 003 , 00 1 
540 DATA 1 28, 128, 192, 224, 224, 240, 240, 248 
550 DATA24B, 120, 060, 028, 014,' 006, 003,001 
560 DATA001 , 003, 006, 014, 028, 060, 120, 248 
570 D AT AOO 1 , 00 1 , 003 , 007 , 007 ,015, 0 1 5 , 03 1 
580 DATA248, 240, 240, 224, 224, 192, 128, 128 
590 DATA031 , 030,060, 056,1 12,096, 192,128 
600 DATAO 15, 015,007, 007,003, 003, 001 , 001 
6 1 O DATA240, 240 , 224 , 224,1 92 , 1 92 ,128, 1 28 
620 DATA 1 28 , 064 , 033 , 023 ,015, 031 , 031 , 063 
630 D AT A060 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
640 DATA001 , 002, 132, 232, 240, 248, 248, 252 
650 DATA 127 , 127,255,255,255,255,127,127 
660 DATA254, 254, 255, 255, 255, 255, 254,254' 
670 DATAC63 , 063,031, 015, 023, 035,064, 128 
680 DATA255, 255, 255, 255, 255, 255, 255, 060 
690 DAT A252 , 252 ,.248, 240 , 232, 196, 002 ,00t 
700 DATA 1 28,064, 032, 0 16, 008 , 004 ,002 , 001 

710 DATA001 , 002, 004,008, 016, 032,064, 128 

71 1 DATA036, 000, 024,036, 036, 036, 024, 000 

712 DATA036, 000,024, 004,028, 036,028,000 

713 DATA036 , 000 , 036 , 036 , 036 , 036 , 028, 000 

7 1 4 DATAOOO , 000, 118, 073 , 073 , 073, 073 , 000 

715 DATAOOO, 000, 028, 032,024, 004,056,000 

716 DATAOOO, 000, 060,004,008, 016,060, 000 

7 1 7 DATAOOO , 000 , 036 , 036 , 036, 036 , 028, 000 
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* 32 iß 

haben Sl» »In gut»» Str »ßengedich tnl» , 

•ne II , können Sie uorausdenken und den 
Oegner In Sackgassen locken, um Ihn dann »Inzumauern'’ Denn v ! 
geschossen wird In diesem Spl»l nicht. AI» Möllmann mü»»tn 
Sl» In einer großen Stadt all» Hölttonnen » insaimi» 1 n , dabei 
»»h»n Sl» Jedoch nur gerade Ihr» nichste t*rig»bung au» dem 
Bl I d»ch I rm. AI» »r»t»» müssen Sl» di» Tankstellen finden, 
bei denen Sl« dann regelmjßlgauftanken. Sodann dürfen Sl» 
»Ich nicht uerlrren, um schnell gtmig zur Tankst») I» zurück - 
zuflhden. Ihr» einzig» Högllchkelt mit d»n Verfolgern fertig 
ru werden l»t Ihr» In te I 1 igenr : Si e können Hauern bauen und 
Ihr» Gegner »o abhjngen od»r gar vö I I i g »,l liffliutrn . Auf 'einem 
Ra dar »ch I rm können Sl» dl » Po sl tlon ihrer Geqner grob ab3ch'.Vt 
r»n. H.ruoragend» Gr »f Ik und tot I er Sound lassen di»»»» Spiel 
ju * I nt» fast Inl »rendem Oben teuerer I »hni« wprdrn. Ein absolut 
»mp fehl enswer t»» Spl»I mit »ehr hohem Programmier au fuanrf. 

<uon Patrlc Thema») Art. »»I SeS 3».- OM 
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COLOR-QUBERT , 32 K 

Oubfrt, da» Kinn» Hinnrhpn auf :d*r Pyr Äinlctp , hat btrViU. 
unzählig# Herren d»r: ATARI -TplMp If ItVpiindf •robfr t . 

OUÖERT - JETZT AUCH PuR IHR CDi nilD - tfFNIR < 

Ein HSnr>cH«n »t*ht au# f ln»r Sliif#ripyrÄmidt imd mU9 nun <Jnn 
Stuf* ru Stuf* «prlng*n. upnn er Jede Stuf? mindi?» I fW 

• Inrntl e'P'r'f'.lchi bat, \ »t er rufr i <*d«*n . Di aber gar nicht 

so .einfach, da #r dauernd auf hüp f ende und her ab# a I I ende Sachen 
achtgeben mu 0 . Auch hier xihlt Intel I i g>nr und W*.*k 1 1 ontupr - 
mdgeni r» wird nicht QMchoispnf (oon PjIpIc. Thom* r .> 

Art. 89Ö SeS 49.- 0M, 


PROTHEUS - Schach l«t eine koneeguen te We I ter »n tcul ck 1 ung de s 
Programm» CO-Schach und bietet gegenüber diesem, neben «einer 
Spiel fttirke, einen weeentllch höheren Dedl enung*kom#or t und 
eine verbe««erte Graf I kdar»t«1! ung. Vorteile von PROTHEUSi 
■ - 7 5p I e 1 »tirkrn 

- 8ret tdaretel lung In hochauflösender Grafik mit 
wesentlich beseerem De«lgn 'der". Figuren . 

- Automat I «che Brettdrehung, d,h. der Spieler «plelt 
Irrener von unten nach oben. 

- Möglichkeit der ZugrOcknahme . 

- PROTHEUS erkennt automatisch, ob ein Drucker Anga- 
be hl oseen und elnge«chal tet I «t , und protokolliert 
die Züge. 

- Oute«, Immer wechselnde» Dämon» tr a 1 1 on*»p I e \ , 

- Einfachere» Verfahren beim Aufbau einer 
Pr ob I em« t e I I un g . 

- Sichern und Laden von Spiel »( tue t Ionen auf Ka*»ette 
-Unterschiedlich« Darstellung der Figuren bei Färb - 

oder SA/ - Fernsehger iten . 

Protheu« wurde an SARG0N II angelehnt und’ bex i tzt ’ eine enorme 
Spl«l*tirkej »o »chlug e« In e I nem Te* t»p I e 1 da» Cologr -Schach 
(von TCS) obwohl dle»e»^mj.t we i 0 »pleite, (von GerhardUolf) 

Art. 992 SeS 59.- DM 


COMPUTER-FRUST 

0.» wahnwl (i I g. Str a t egi esp I « 1 ! (uoh Frank Harmor) . 

Auf einem großen Gel Ind» sind Punkt» und Hi ndernl sbl öck» 
uerstr.ut. Sl» mö»»»n t.ktl*eh geschickt ihr» 0*gn»r hlnt.r 
dl»»» Hindernisse locken um Punkt» zu sammeln und den Computer 
zu frusten ! G»h»lm«ch.ltz» bringen Punkt», können lhn»n aber 
«och da» Leb.n schwer machen. Sl» können zwl sehen dr»l 
Sp I »lo»r*l on«n mit Jeuef I« drei Schwierigkeitsgraden wihlen. 
Auf Wunsch uerrlt lhn»n d»r Autor gern» ' einig« »tp«t«gl sch« 
Tip«, ul» Sl* den Compu t »r fru*t»n können. 

Art. 9*8 S»S 3?.- 0H 


OTELLO 


M.A.D. (Missile Attack and Defense) 

Wieder »in toi l e» Video-Ac t I on Sp i » I i Verteidigen Si. »in» 

Stadt gegen h»r abt a I I »nd» Rak»t»n. 0a» bekannt» T.l.spl.l Tn 
» i n » r Col our -Gen i » Version mit über »sehender Grafik. Trota der 
h.ruorr ag«nd»n Qualitit haben wir •» geschafft, di»»»» Spiel tu 
einem ungewöhnlich niedrigen Preis «nrubi»t«n. 

<St. Si cur» I I a ) Art. I 17 d»S 29.- CH 


0i»»»t Sp i • I I * t auch bekannt unt»r d»m Namen - R»u»r«l ’ . 

Auf da» »chachbre t tihn I I ch» Sp I e I f » I d mö »t»n Si • afcuj»ch»»lnd 
mit dem Computer einen Stein ihrer Farbe legen. Di» gegnerisch 
• n Stein«, dl». iwl*ch»n Ihrem auletzt gelegten und »ln»m arid»r 
«n Ihrer Stein» liegen, erhalten dann Ihr« Farbe , 2i«l ist e», 
zum SchluS <d.h. wenn alle Felder besetzt sind) mögl lch»t u I « 1 
Stein» der eigenen Farbe zu haben . Versch I »den» Schwierigkeit« 
grade »Ind uorab einstellbar. 

(Pförtner) Art. 93? SeS 25.- CH 


25.- CH 
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718 DATAOOO, 000, 036, 020,008,020, 036,000 

719 DATAOOO, 000, 036, 036, 040, 040, 016, 000 

720 CHAR2: RESTORE: F0RA7.=S<HF400T0? < HF527 : READB’/.: F'OKEAX, BV.' NEXT: RETURN 
730 Ai=l:A2=l: A3=l: A4=l: A5=l : A6=l: A7=l 


740 

PLAY ( 1 

,1,1,0): 

IF D=0 THEN 790 


750 

IF 

F<= 

42 THEN 

F=F+1 : G0T0980 


760 

IF 

D=2 

THEN GOSUB 1 680 :D=D-1 


770 

IF 

F2< 

=42 THEN 

1 F 2-=F2'+ 1 : G0T0990 


780 

GOSUB 1710: D=0 : 

G0T0790 


790 

C$= 

; INKEY$ 



800 

IF 

C*= 

" "THEN740 


810 

IF 

C$= 

" 1 "THEN 

1000 


820 

IF 

C$= 

"2"THEN 

1020 


830 

IF 

C$= 

"3 "THEN 

1040 


840 

IF 

C$= 

"4"THEN 

1060 


850 

IF 

C*= 

"5" THEN 

1080 


860 

IF 

Ci= 

"6"THEN 

1100 

870 

IF 

C*= 

"7" THEN 

1120 


8B0 

IF 

C$= 

" A"THEN 

1140 


890 

IF 

C$= 

,, B"THEN 

1160 


900 

IF 

C$= 

"C"THEN 

Uso . 


910 

IF 

C$= 

"D"THEN 

1200 . 


920 

IF 

c*= 

11 E" THEN 

1220 


930 

IF 

c$= 

"F"THEN 

1240 


940 

IF 

c$= 

"G-’THEN 

1260 


950 

IF 

c$= 

"9" THEN 

CLS: GOTO 220 


960 

IF 

c$= 

"0"THEN 

CLS: D=2: F=0: F2=0: GOTO 200 


970 

GOTO 740 



980 

ON 

F GDT01000, 

1040, 1140, 1020, 1000, 1080, 

1 1 40 , 1 1 80 , 1 000 , 1060,11 60 , 1 0 


40. 1140. 1020. 1000.1120. 1140. 1180.1000.1160.1140. 1220. 1000. 1040. 1140.10 

20. 1000.1100. 1160. 1140. 1200. 1020. 1000. 1080. 1 140. 1 180. 1000. 1060.1160. 10 
40, 1140,1020, 1000 

990 ON F2 G0TÜU40, 11B0, 1000, 1160, 1140, 1220, 1000, 1040, 1140, 1200, 1020, 1 

180. 1000.1160.1140. 1260. 1000. 1040.1140. 1020. 1000. 1080. 1140.1180. 1000.1 

160.1140. 1240. 1020. 1000. 1060.1160.1140. 1220. 1000. 1040. 1 140. 1200.1020. 1 
180,1000,1160,1140 

1000 IF Al = l THEN PLAY ( 1 , 6, 4, 12)-: Pl=68: Al$=" A“ : G0SUB1280: Al=2: F=49: GDS 
UB1640: G0T0740 
1010 G0T01530 

1020 IF Al = l AND A2=l THEN PLAY (1,6, 1,12) - P2=187* A2$="B" : GDSUB1330: P=1 
69: G0BUB1640: A2=2: GGT0740 
1030 GOTO 1530 

1040 IF Al =2 AND A2=l AND A3=l THEN PLAY (1,5,4, 12) : P2=307: A2$='‘C" : GOSU 
B 1 330 : P=2B9: GOSUB 1640: A3=2: G0T0740 ; 

1050 GOTO 1530 

1060 IF Al =2 AND A2=2 AND A3=l AND A4=l THEN PLAY < 1 , 5, 1 , 12) : P2=427: A2i 
= '• D GOSUB 1 330 : P=409 : GOSUB 1 640 : A4=2 : G0T0740 
1070 GOTO 1530 

1080 IF Al =2 AND A2=2 AND A3=2 AND A4=l AND A5=l THEN PLAY (1,4,4, 12) : P 
2=547 : A2$= "E" : GOSUB 1 330 : P=529 : GOSUB 1 640 : A5=2 : G0J0740 
1090 GOTO 1530 

1100 IF Al =2 AND A2=2 AND A3=2 AND A4=2 AND A5=l AND A6=l THEN PLAY < 1 , 
4, 1, 12) :P2=667: A2$="F" : GOSUB 1 330 : P=649 s GOSUB 1 640 : A6=2 : G0T0740 
1110 GOTO 1530 

1120 IF Al =2 AND A2=2 AND A3=2 AND A4=2 AND A5=2 AND A6=l AND A7=l THE 
N PLAY (1,3,4,12): P3=7B7: A3*="G" : GOSUB 1400: P=769: GOSUB 1640: A7=2: GOTO 74 

o 

1130 GOTO 1530 

1140 IF Al =2 THEN PLAY ( 1,6,2, 12) : Pl=50: Al$=" 1 " : GOSUB 1280: Al = 1: F'=68: G0S 
UB 1640: 60T0740 


GENIE DATA 51 


1150 GOTO 1530 

: 1160 IF Al =2 AND A2=2 THEN PLAY ( 1 : 5, 6, 12) : F‘2=169: A2$="2’‘ : GOSUB 1330: P= 
187: GOSUB 1640: A2=l: G0T0740 
1170 GOTO 1530 

1180 IF Ai=l AND A2=2 AND A3-2 THEN PLAY ( 1» 5? 2? 12) : P2=289: A2$=" 3." : GOSU 
B1330: P=3Ö7: GOSUB 1640: A3~l : G0T0740 

LI 90 GOTO 1530 ’ 

1200 IF Al = i AND A2=l AND A3=2 AND A4=2 THEN PLAY ( 1,4, 6,1 2) : P2=409: A2$ 
-"4" : G0SUB1330: P=427: G0SUB1640: A4=l : G0T0740 
1210 GOTO 1530 

1220 IF Al=l AND A2=l AND A3=l AND A4=2 AND A5=2 THEN PLAY ( 1 , 4, 2, 12) : P 
2=529: A2$="5" : GOSUB 1 330 : P=547 : GOSUB 1640: A5=l : G0T0740 
1230 GOTO 1530 * 

1240 IF Al=l AND A2=l AND A3=l AND A4=l AND A5=2 AND A6=2 THEN PLAY < 1 , 
3, 6, 12) :P2=649:A2$="6": GOSUB 1330: F-667: GOSUB 1640: A6=l : GOTO 740 
1250 GOTO 1530 

1260 IF Al=l AND A2=l AND A3=l AND A4=l AND A5=l AND A6=2 AND A7=2 THE 
N PLAY (1,3, 2.- 12) : P3=769: A3S="7" : GOSUB 1400: P=7B7: GOSUB 1640: A7=l : GOTO 
740 " ' ■ 

1270 GOTO 1530 

1280 C0LÜUR4: PRINTER 1 , CHR$ ( 128) 5CHR$<132> ? OHR* (129) 5 
-- 1290 PR INTiäP. 1+40, CHR*( 133) : " " S CHR$ ( 133) ; 

1300 C0L0UR3: PRINTER 1+41, Ali? 

1310 C0L0UR4: PRINTER 1+80, CHR* (130)5 CHR$ (132)5 CHR$ ( 131 ) 

1320 RETURN 

1330 C0L0UR2: PRINTSP2, CHR* (136)5" " 5 CHR$ (140) 5 

1340 PRINTSP2+40, CHR* (137) 5CHR$(138) 5 " " 5 CHR* < 141 ) 5 CHR$ ( 142) 5 
1350 PRINTi3P2+81 , CHR$ ( 139)5 " " 5 CHR* ( 143) 5 
1360 C0L0UR13: PRINTSP2+2» CHR$ < 134) 5 
1370 PRINT@P2+42, A2$5 
1380 PR I NT ©P2+B2 , CHR$ ( 1 35 ) 5 
1390 RETURN 

1400 C0L0UR13: PRINT@P3, CHR$ ( 144) 5 5 CHR$ < 134) 5 "■" : 5CH" - 45) 5 

1 410 F‘RINT@P3+41 , 5 A3$5 5 * 

1420 PRINT©P3+81 , " ■" 5 CHR$ ( 135) 5 5 
\ 1430 RETURN 

1440 C0LDUR2: PRINT®P4, CHRS ( 154) 5 " I "5CHR$<155>5 
1450 PRINTSP4+41 , CHR$ ( 154) 5 " I " 5 CHR$ ( 155) 5 
1460 FRINT0P4+12O, " — — "5 

1470 PRINT@P4+201 , CHR$ ( 155) 5“ 1 " 5 CHR$ ( 154) 5 

1480 

; 1490 C0L0UR3: PRINT@F'4+82, CHR$ (146) 5 CHR$ ( 147)5 CHRf (148 • 

1500 PRINTSP4+122, CHR$ (149)5 5 CHR$ (150) 5 
1510 PR I NTSP4+1 62 , CHR* ( 151)5 CHR* (152)5 CHR* (153)5 
1520 RETURN 

1530 C0L0UR3 : F’RI NT0458 , “GEHT" 

1540 PRINT053B, "NICHT" 

1550 FDRI=1T05 

1560 PRINTS618, "■■■■" : PLAY (1.-4, 1,12) 

1570 F0RJ=1TD20: NEXTJ 

1580 PRINTS618, " " : PLAY ( 1 , 1 , 1,0) ' 

1590 FGRJ=1T020: NEXTJ 
1600 NEXiI 
1610 PRINTÜ458, " 

1620 PRINT@53B, " 

1630 Z=Z+1 : C0L0UR2: FRINTS816, "Fehl er : " 5 Z 5 : G0TO740 
1640 PRINTÖP, ” 

1650 PRINTSP+40, ” 

; 1660 PRINTGJP+80, " 

! 1670 RETURN 
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1680 PR I NT @920 v " Und jetzt da" ; CHR$ < 160) 5 ■' Ganze " 5 CHR$ < 162) ; CHR* ( 159) 5 
"gekehrt !"; 

1690 FÜR 1=1 TO 2000: NEXT I 
1700 RETURN 

17 10 PRINT@920,. "So, jetzt zeige " ; CHR$ ( 159) ; *‘ir wa" ; CHR$ ( 160> ? " du kan 
n " ; CHR$ ( 1 60 ) ; "t"; 

1720 FOR I =1T01 500: NEXT I 

1730 PRINTS920, "NeuauF " ; CHR$ ( 160) ; "tell un? = 9 ** Vorf " 5 CHR$ ( 158) "hre 


1740 RETURN 

1750 FOR I = 1 TOB : FOR J = 1 TOB : PLAY 01 , I , J , 1 
1760 FORK= 1 T02 : NEXTK 

1 770 NEXTJ : NEXTI : PLAY (1 , 1 , 1,0): RETURN 


Thomas Wagner 


Das folgende Programm, geschrie- was zu einem FC-ERROR führt. I I 

ben für das Colour Genie (mit klei- In den Zeilen 330-350 wird I / ■ *7 

nen Änderungen auch lauffähig der Farbspeicher des Ausgabefen- 

auf den anderen Genie-Typen) sters mit der gewünschten Farbe ( 

ermöglicht es, Laufschriften mit gefüllt. \ \ 

einer maxim. Länge von 215 Zei- Statt eines USR-Aufrufs wird in V 

chen zu erzeugen. Dabei lassen die 24 freien Bytes zwischen Bild- /V 

sich die Breite des Ausgabefen- schirmspeicher Text-Modus u. 

sters, die Geschwindigkeit u. auch schirmspeicher Grafik-Modus 

die Farbe der „laufenden" Zei- (47E8H-47FFH) folgendes kleine byte) u. MSB (more significant 
chen wählen. Maschinenprogramm geschrieben: byte) zerlegt, die dann di- 

Das Programm besteht aus zwei CALL Startadresse (hier- 8000H) re kt in das Maschinenprogramm 
Teilen, vyobei die Laufschrift RET geschrieben werden können. (wie 

selbst in Maschinensprache ge- Der Aufruf erfolgt in Zeile 380 in den Zeilen 130-210). 
schrieben ist, die dann mit dem mitCALL 47E8. Auf den ersten Das Assembler-Listing ist 47 Bytes 
Basic-Teit an beliebiger Stelle im Blick erscheint der Rücksprung ins lang. Die Anfangsadresse ist 
Speicher placiert werden kann. Basic u. der erneute Maschinen- 8000H. Der Laufschrifttext wird 
Das Basic-Listing ist in REM-Zei- programmaufruf als unlogisch, extra abgespeichert (in diesem 
len in seinen Grundzügen erklärt. Doch somit läßt sich der Ablauf Palle ab 9000H). Erwähnenswert 
Zum besseren Verständnis soll es des Maschinenprogramms leicht wäre noch, daß sich das Maschi- 

jedoch noch einmal an wichti- mit BREAK unterbrechen. An- nenprogramm fortlaufend in 

gen Punkten näher erläutert wer- sonsten müßten die beiden RST- 800DH verändert. Dort steht 
den. Tasten gedrückt werden, was nämlich der Zeiger für den Text- 

in vielen Zeilen (z.B.300) steht manchmal zu einem Programmab- anfang. Alles weitere entnehmen 
"(G AND 255)". Dieses "ÄisiD* stürz führen könnte, Sie bitte dem erläuterten Listing. 

255" verhindert, daß der Wert In den beiden letzten Zeilen Nun noch viel Erfolg bei der Ver- 

von G, falls größer 255, in eine (390 u. 400) wird die Dezimal- wendung der Laufschrift in ei- 

Speicherstelle "gepoked” wird, zahl Z in LSB (lower significant genen Programmen. 

10 REM****************************** /'L 

20 REM* LfiUFSCHRIFT '* ( ^ V 

30 REM* fuer Colour-Genie * T 

40 REM* Von Thomas Wagner * 

5ü REM* 12.3.34 * 

60 REM****************************** 

70 CLS:CLEftR500:COLOURl: INPUT"Wo soll das Programm beginnen (im RAM) Cin Dez- 
Za h 1 en > " ; S 

3ü INPUT" Wo soll der Text abgelegt werden ( im RAM) (in Dez-Zahlen) "sSl 
90 REM****** MASCHINENPROGRAMM EINLESEN ******** ' 



m 


ABONNEMENT BESTELLUNG 


Hiermit bestelle ich 
GENIE DATA. 


Abonnement(s) der Zeitschrift 

Mit oor großen Programm-Sammlung für GENIE I, II, III. 
TRS BO und COLOUR GENIE - Programmen. 


Mir ist bekannt, daß ich das Abonnement zu jedem Quartal, 
jeweils 6 Wochen vor Quartalsende, kündigen kann. 


Der Bezugspreis beträgt innerhalb der BRD nur DM 59,40, 
pro Abonnement. (Sechs Ausgaben) frei Haus. 


Die Bezugsdauer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird.- 

Es ist mir bekannt, daß ich innerhalb acht Tagen nach der Abo-Bestellung das Recht 
habe, von dem Abo-Auftrag zurückzutreten ohne irgendwelche Unkosten 
Die zusätzliche Lieferung der Programm-Sammlung gilt ab Ausgabe 5/84 bis auf Widerruf. 
Mit obigen Bedingungen erkläre ich mich einverstanden: 


Unterschrift Datum 

Boi jugendlichen unter 18 Jahren. Unterschrift eines Erziehungsberechtigten. 


GENIE IM KLEIN-ANZEIGEN-BESTELLUNG 

Bitte veröffentlichen Sie nachstehenden Text in der 
nächsten Ausgabe von GENIE DATA unter der Rubrik 
Kleinanzeigen. 

Bei ABONNENTEN unbedingt ABONNENT hin schreiben 
SONST ERFOLGT RECHNUNG ! 



Unterschrift Datum 

Mit meiner Unterschrift versichere ich, keine urheber- 
rechtlichen Bestimmungen zu verletzen. 



Ihr Inserat in der GENIE DATA Nr. hat meine Beachtung Reservieren Sie uns bitte angekreuzten Platz für ein Inserat 

gefunden. zum Erscheinen in der nächsten GENIE DATA.- Unsere Satz- 


vorlage, bzw. Film, geht Ihnen umgehend zu. 


Hiermit bestelle ich zur schnellstmöglichen Lieferung: 


Anzahl 

Artikel 

Preis 

















Unterschrift : D° tum : 


O l/l Seite 
O 1/2 Seite 
O 1/3 Seite 
O 1/4 Seite 


O 1/8 Seite 

O Wir sind interessiert an Kleinanzeigen 
O Bitte, senden Sie uns 

Ihre Anzeigenpreisliste zu ! 


GENIE DATA 

O WER-WAS-WO-Einkaufsfiihrer 
Inseratgröße 55x45 mm DM 55,- + 14% MWSt, 
abzüglich 10% Rabatt für 6x Erscheinen. 
Satzkosten für 4 Zeilen einmalig DM 15,-- 


O Neusatz muß 
von Ihnen 
erstellt werden I 


Jede weitere Zolle Satz kostet OM 7,50 





Absender: 


Name 


Straße 


(PLZ) Ort 

Für private Abonnenten der GENIE DATA 
sind die ersten drei Zeilen der Kleinanzeige 
kostenlos. 

Jede weitere Zeile 5,50 DM 

Private Kleinanzeigen pro Zeile 6,00 DM 

Geschäftliche Kleinanzeigen 
pro Zeile 7,50 DM 

Chiffre Gebühr 9,00 DM 

Alle oben angegebenen Preise werden 
Ihnen zuzüglich der gesetzlichen MWSt, 
berechnet. Der Betrag ist sofort nach 
Erhalt der Rechnung rein netto zahl- 
bar. 

IV/64 


POSTKARTE Bitte 

freimachen 


An 

HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 M AR I E N F E LS/T aunus 


Absender: 


Name 


Straße 


(PLZ) Ort 


IV/84 


POSTKARTE 


An 

HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 MARI EN FE LS/Taunus 





Absender: 


Name 


Straße 


(PLZ) Ort 


IV/84 


Absender: 


Name 


Straße 


(PLZ) Ort 


POSTKARTE 


An 

HEINZ HÜBBEN 
Offsetdruckerei / Verlag 
Mühlbachstraße 2 
D-5429 MARI EN FE LS/Taunus 


POSTKARTE 


Firma 




IV/84 










Ci <F2> Komplexe Subtraktion 

CF3> Multiplikation für ÜPH X=Y*X 

Sh <F3> Multipliziere X m «i) 

Ct <F3> komplexe Multiplikation 
<F4> Division für UPN X=Y/X 

Sh <F4> Dividiere R(i) durch X 

Ct <F4> komplexe Division 

Ct. r Rez iprokvert X=I/X 

Ct F Potenziere X=Yhoch X 

Ct - Uorzeichenuechsel 

Ct ! Fakultät uor. X 

Ct R zeige RCö-tS) auf Bildschirm 

Ct H Hardcopy 

flCC' CR£T> Arcus-Cosinus uon X 
ASI <RET> Arcus-Sinus uon X 
PUX " Hut ruf der Hi 1 fstunktionen 

: BIN. 6inominälkoef tizient 
KOM Kommentar- zur Grafik 

UM minimale und maximale X,V Uerte 

einer Funktion in Pirime terdarst 
MIT. stat. Mittel«, u. Stand ardaou. 
f'LO . plotte Funktion IN in Parameter- 
; : " , darstel luhg 

FEG lineare Regression 

, STh bereite Statistik uor 


: Csub 

S v*x 

fte.x 

Cmul 

s: V'x 

Re/:; 
Cdiu 
1 'S 
? v**x 
chsX 
FakX 
fteAn 


SCHMIDTKE 


Wir senden Ihnen gerne unseren 
Softwarekatalog mit 
über 100 Programmen! 
(Natürlich kostenlos!) 


electronic 

Büro- und Personalcomputer 

_ Sondkaulstroße 84 - Telefon: 0241 - 232,17 

5100 AACHEN 
CALCUL 1.1 

Ein Mathematik 


da» ex in sich hat! 

e damit einen Taschenrechner simulieren, 
hOS. Die Anzeige gibt laufend Auskunft 
TACK-Regi ster , 1/0-Uerte etc. ... 
sich damit Funktionen mathematisch 
„ eren, differenzieren, etc.». Die Funktion 
wird ln hoher Auflösung auf den Bildschirm geplottct und kan. 
als Dump auf einem Drucker (Typ Star oder Epson) ausgegeben 
ue '' rtl!n - Art. 893 SeS 49.- DM 

Kurzfassung der CALCUL-Befehle 

Abkürzungen! Pu, PK. HO. PU: Pfeil nach I inks, recnts, ooen, unten 
• S: . Stick ui rd durch Befühl geshi i tet : 

IN: - Eingaberegister der Funktion 
OLM Aysgabereglster der Funktion 
Hb; Abkürzung, die nach Funktionsaufruf in der 
zuiüiien Zeile des Eil ldschi rms erscheint 
jh: Shift , C 1 1 CTRL. = Control 

Taste(n> Funkt ionsueisü IN All fib 


CLIP <RET> Cursor in Graph bewegen (hinter FL0) 
(PL) Cursor I Einheit nach links 

<PR> Cursor 1 Einheit nach recht? 
5h<Pl>Cursor g Einheiten nach links 
?h<FR>Cursor B Einheiten nach rechts 
P Position in X, V ausgeben 

E Verlassen der Routine 

DEG <RET> in Grad umuandeln X 

DIF " ■ Differenziere Funktion X 

END • CALCUL beenden 

EDI “ Funktion IN editieren 

NSL * Anleitung ausdrucken 

“ " Ende der Anleitung 

Hilf " Integral der IN-ten Fkt ln (X.V) X.Y 

KAR " in kartesische Koord. wandeln X.V 

LIM “ minimale ijnd maximale Fkt-Werte X.V 

UN " lineare Interpol ation P(P-3) X.V 

LIP ’ Zehner logsr i thmus X 

Pi. " Krei skonstante 3.1415.. 

PLO , " Kurue plotten X-T 

FPL " in Polarkoordinaten uandeln X.V 

PVr " Pythagoras X*X+V*V 

RAD " In Bogenmaß umuandeln X* 

RUN “ Funktion IN auf rufen bellet 

USR“ frei definierbarer Befehl 

ZER ■ Nullstelle suchen X.V : 

Steuerparameter : 

IN Funkt tonjzeiger TN»l-3 

IR Speicherzeiger IR=G-15 

IS Statistik 15=0, 1 

TP Druckerprotokol 1 IP=0, 1 

Dl Intervall teilet- 0I = lklv1 Standard 

FE Fehlergroße “ZER" FE=!.E-5 Standard 


PL Delete, Lösche voriges Zeichen 
Sh PL Lade X mit R(i), i wird erfragt 
Ct PL I) Lade Stack aus R(ö-3; 

2) nach "STA"; entferne X,V aus . v 
statistischen Summen . 

PR 1> als 1-tes Zeichen: X in Hexa 
2) hinter Hexa-Zahl: X in Dezi 

Sh PR Lade R(i) mit X. i wird erfragt 
Ct PR 1) Lade ft(ö-3> mit Stack 

2) nach "STA“: X.V zu stat. Summen 
PO Schiebe Stack nach oben 
Sh PO Ro 1 1 e S Pack nach oben 
Ct PO tausche Z und T 

PU Schiebe 1 Spack nach unten 
Sh PU Rolle Stack nach unten 
C t PU t ausche X und T 
CLEfift lösche Stack 
Ct CLEAR lösche Speicher R(0-15) 

Grundrechenarten für ftOS 

<FO Addition für UPN X=Y*X 
Sh <F1> Addiere X zu R<i), i uird erfrac 
Ct <F1> komplexe Addition 

<F2> Subtraktion für UPN X=Y-X 
Sh <F2> Subtrahiere X uon R(i> 


StoR 
StoS 
STAe 
StUp 
RolU 
Exzr 
S tUo 
kolD 
Ex.W 
: ClSt 

clRe 
S A0S 
S . V+X 
Re*X 
Cadd 
S V-X 
Re-X 



56 GENIE DATA 


i 90 R'EflDZ : I FZO- 1 THEHPOKES+fl ,Z: fi=ft+ 1 : GOTO 1 00 
1 IQ 0fiTA33,254, 1.43, 14, 15, 1 13,33, 13, 128, 126, .60, 1 19, 33 
6, 1,15,0,205, 98,0, 33,254, 143, 78, 13,282,41, 128, 113, 19 


120' REM******* ADRESSEN IN DAS MASCHINENPROGRAMM SCHREIBEN ******** 

130 2=S 1-2: GÖSUB390: P0KE5+1 , fi: PQKES+2, Al 
140 Z=S+13: GOSUB390; POKES+7, fl: P.üKES+8, fll 

1 58 2=8 1 : GOSUB390 : PQKES+ 1 3 , fl : PÜKES+ 1 4 , fl 1 — ^ 

168 2=51-2: G0SUB398: PÜKES+30, fl; PQKES+31 , fll ( Cq. 

1 70 Z=S+41 : GÜSUB390: POKES+35, A: PÜK'ES+36, fll L T 

180 Z=S+ 1 3 : GOSUB390 : PÜKES+42, fl: F'OKES+43, fll V * ) 

190 Z=S+S: GÜSUB390: POKES+39, ft: P0KES+4U, fll .. 

280 2=£ 1 : GOSUB390! P0KES+ 13, fl 
2 1 0 2=S 1 : GOSUB390 : PÜKES+45 , fl 

220 REM***** DATEN ZUR LAUFSCHRIFT ERFRAGEN UND ABSPEI ÜHERN ******* 

230 CLS:INPUT"TEXT"jfl$:IFLEN<fl$»215THEN230 
240 INPUT"Posx tion < 0.' 1 der Ausgabe" ;2 
250 IHPUr'Laenqe der flusgabezeile”;L 
260 I NPÜT" Geschw i nd i q ke i t ( U- 10 ) " ; G : G=G*20 
27ü INPUT "Farbe (1-16) <0-bunt)";F ’ 

280 CLS : B4—STR I NS$ ( L , 32) +fl$+STR I NGf- ( L , 32) 

290 FÜRA= HOLEN <B$> : P0KES1- 1 +fl, flSC(MIDT(8$, fl, 1>):NEXT:R£M TEXT ABSPEICHERN 

300 POKES+25 , (GflND255):REM GESCHWINDIGKEIT flBSPEICHERN 

310 PÜKES+4, ( C LEN < 6$ ) -L ) AHD255 ) : REM ZE I CHENZAHL flBSPEICHERN 

320 POKES+19, <LAND255):REM AUSGflBELAENGE flBSPEICHERN 

330 FORfl=ZT02+L 

340 IFF=0THENF 1 =RND < 255 ) ELSEF 1 =F 
350 POKEfl-4096, (F1AND255) :NEXT 

360 Z= 1 7408+2 : 6ÜSUB390 : PÜKES+ 16, fl: POKES+17, fll : REM BILDSCHIRMADRESSE FESTLEGEN 
378 Z=S : GOSUB390 : P0KE&H47E8 , 205 : P0KE&H47E9 , fl : PÜKESH47EA , fl 1 : P0KE&H47EB , 20 1 : REM ST 
ATT EINES USR-ftUFRUFES 

380 CALL47E8: GOTÜ380 i : ^ 

390 IFZ<0THENZ=Z+65536 — ’ \ 

480 fll = INT (Z/256) ; fl=Z-ft.t *256: RETURN- 3- -- ‘ 7 . \ 
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ms 


Colour Tool 


; Toolkits gibt es ja viele, wenn 
auch nicht gerade für das Colour 
Genie, so aber doch für andere 
Computer. Wir haben uns ein- 
mal mit Toolkits beschäftigt und 
einen für das Colour Genie ge- 
macht. Und das nicht unbe- 
dingt um Ihnen viele neue^Befeh- 
le zu geben, sondern um' Ihnen 
zu zeigen, wie man Toolkits, 
also Befehlserweiterungen, macht. 

Wie Sie ja wissen, steht Ihr 
Colour Basic im ROM. ROM 's. 
sind Speicher, an denen man 
nichts ändern kann. Basic greift 
aber oftmals auf RAM-Bereiche 
zurück, und das ist ein Punkt, 
an dem wir ansetzen können, um 
das Basic zu ändern, oder zu er- 
weitern. 

Bei unserem speziellen Beispiel 
sind wir so vorgegangen: 

Wir benutzen einen Disk-Ba- 
sic-Befehl (NAME), als Starter 
für unseren Toolkit, Dazu schrei- 
ben wir nach 41 E8 H : JP START. 
4TE8 H ist ein Teil einer Sprung- 
tabelle für Disk-Basic-Befehle. 
Die Sprungvektoren für NAME 
stehenin41E8, deshalbgehen wir 
auch an diese Adresse. Wenn al- 
so jetzt irgendwo in einem Basic- 
Programm der. Befehl NAME 
sieht der Computer in seiner Ta- 
belle nach, findet JP START und 
springt unsere Erweiterung an. 
Daraus ergibt sich auch schon 
zwingend die Syntax unserer neu- 
en Befehle: z.B. NAME INVERS. 
Zuerst steht also NAME, um den 


Toolkit anzuspringen, dann der 
neue Befehl. 

Jetzt zeige ich Ihnen aber, wie 
der Computer den neuen Befehls- 
satz erkennt und ausführt. 

Am Anfang (nach START) 
steht DEC HL, dieses ist einmal 
nötig, um HL zu korrigieren, denn 
HL zeigt auf den nächsten Befehl, 
der erkannt werden soll. Jetzt 
folgt ein RST 10H, hierdurch 
wird der Computer veranlasst, 
das nächste signifikante Zeichen 
aus dem Basic-Text zu holen. 
Leerzeichen oder Doppelpunkte 
übergeht der Computer dabei selb- 
ständig, so daß wir uns darum 
nicht mehr zu kümmern brauchen. 
Jetzt erfolgt eine Vorerkennung, 
die dann zum eigentlichen Befehl 
verzweigt. Sollte die Vorerken- 
nung nichts finden, daß sie kennt, 
also kein gültiger Befehl, dann er- 
folgt ein Sprung nach 1997H 
(SYNTAX ERROR!) 

Jetzt wieder (z. B. bei Label 
INVERS) das nächste Zeichen mit 
RST 10H geholt. Dann erfolgt ein 
RST 08H, um einen eventuellen 
Fehler zu erkennen (RST 08H 
vergleicht das geholte Zeichen 
mit dem Zeichen nach RST 08H 
und gibt einen SYNTAX ERROR, 
falls diese Zeichen ungleich sind. 
Danach führt RST 08H einen RST 
10H aus, um das nächste Zeichen 
zu holen.). 

Wenn die Syntax in Ordnung 
ist, werden die Register gerettet 
und der Befehl ausgeführt. Wenn 


das getan ist, werden die Register 
restauriert und mit RET kehrt 
das Programm zurück zum Basic. 

Hier noch eine Beschreibung 
der neuen Befehle: 

NAME INVERS 

Hier wird der Bildschirm inver- 
tiert. Wird der Befehl zweimal 
ausgeführt, sieht der Bildschirm 
wieder aus wie vorher. 

NAME WAIT.n 

Nach NAME WA IT steht ein Kom- 
ma, und eine Zahl. Dieser Befehl 
ist gedacht, damit man für Verzö- 
gerungen nicht immer eine FOR- 
NEXT-Schleife braucht. NAME 
WAIT.O wartet solange, bis eine 
Taste gedrückt wird. Argumente 
zwischen 1 und 255 bewirken eine 
Zeitverzögerung, nach der das Pro- 
gramm fortgesetzt wird (1 = kurz, 
255= lang). 

NAME HARDCO 
Dieser Befehl gibt eine Hardcopy 
des momentanen Bildschirminhal- 
tes auf den Drucker. Grafikzei- 
chen werden durch Punkte ersetzt. 
NAME GRINV 

Dieser Befehl invertiert die selbst- 
definierten Zeichen. 

NAME FARBE, n 

Hier muß nach dem Befehl wieder 
ein Komma und ein Argument fol- 
gen. Das Argument bestimmt die 
Farbe, mit der der Bildschirm 
angemalt wird. 

Um alles ganz genau zu durch- 
schauen, lassen Sie, wenn der 
Toolkit geladen ist, einmal das Ba- 
sic-Demo-Programm laufen. 


1 * ff: ff: ff; ;+: :f : f: ffr.f: >f : :f : :f: :f: ■+. :+: 

2 ; 

3 ü COLOUR GENIE TOOLKIT V 1.1 

4 ? 

5 "Erstellt mit SUPER ASSEN 

6 s 

7 ? (c) by GENIE DATA 
B 5 

9 ;*:+! ift * ^ sfs ff: * ff! :+: sjcffi !f< :f : :f: :f : :f ; ff : :f: .*: :f. ff:***: :+: ff: :f. * ff; ff: ff: ff; :+: 


10 

ORG 

418EH 

ii t;t. 

JP 

START 

12 

ORG 

4BOOH 

13 START 

DEC;' 

HL 


; ODER WO SIE MOECHTEN 
? POINTER SETZEN 
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14 


RST 

10H 

5 BEFEHLSWORT HOLEN 

15 


CP 

’ I ? 

; I? 

16 


JP 

Z, INVERS 

? TESTEN OB INVERS-BEFEHL 

17 


CP 

•’H" 

■H? 

18 


JP 

Z j HARDCO 

5 TESTEN OB HARDCO-BEFEHL 

19 


CP 


; W? 

20 


JP 

Z j WA IT 

5 TESTEN OB WAIT-BEFEHL 

21 


CP 

•’F-’ 

;f? 

22 


JP 

Z, FARBE 

5 TESTEN OB FARBE-BEFEHL 

23 


CP 

’G’ 

5 G? 

24 


JP 

Z ? 6RINV 

9 TESTEN OB GRINV-BEFEHL 

25 


JP 

1997H 

5 KEIN BEFEHL ERKANNT! SN-ERROR! 

26 

*« 




27 

; SYNTAX-CHECK FUER INVERS-BEFEHL 

28 

INVERS 

RST 

10H 


29 


RST 

08H 


30 


DEFM 

* N’ 


31 


RST 

08H 


32 


DEFM 

’ V’ 


33 


RST 

08H 

34 


DEFM 

’E-' 



RST 

08H 


ww 

36 


DEFM 

vUl 1 

* R’ 


37 


RST 

08H 


38 


DEFM 

’S’ 


39 

5 SYNTAX OKAY! AUSFUEHREN 

40 


CALL 

PU 


41 


LD 

HL.-4400H 

5 START VIDEO 

42 


LD 

B? 25 

ü ZEILEN 

43 

L00P1 

LD 

C,40 

; BUCHSTABEN 

44 

L00P2 

LD 

A, (HL) 

5 ZEICHEN HOLEN 

45 


CP 


5 LEERZEICHEN? 

46 


JP 

Z 3 AN 

5 JA ! UMDREHEN 

47 


CP 

202 

; GRAFIKBLOCK? 

48 


JP 

Z, AUS 

5 JA ! UMDREHEN 

49 

WEITER 

INC 

HL 


50 


DEC 

C 

5 IST DIE 

51 


JP 

NZ > LQ0P2 

5 ZEILE FERTIG? 

52 


DJNZ 

L00P1 


53 


CALL 

PA 


54 


RET 


5 FERTIG 

55 

AN 

LD 

(HL) .-202 


56 


JP 

WEITER 


57 

AUS 

LD 

(HL) » 32 


58 


JP 

WEITER 


59 

■ 




60 

; SYNTAX-CHECK FUER HARDCO-BEFEHL 

61 

HARDCO 

RST 

10H 


62 


RST 

08H 


63 


DEFM 

’ A ? 


64 


RST 

08H 


65 


DEFM 

•’ R' 


66 


RST 

08H 


67 


DEFM 

' D’ 


68 


RST 

08H 


69 


DEFM 

’C' 


70 


RST 

08H 


71 


DEFM 

’ 0’ 



72 ; SYNTAX OKAY! AUSFUEHREN 

73 CALL PU 



SCHMIDTKE 


MOTTEN 


MUl. dem öl IdKhirm er scheint, ein«. Kol onn» MOTTEN , die zun ach »t 
Irr S tur i f * ug 411 f Sl e- Iiern 1 eder f a I I t. DrniCh schwi rrin Si # «bei- 
den Bildschirm, »etzen mit der Ze-i t 1 inner öfter zu blltzarligen 
Sturz f Eugen in und beschießen Sl* mi t Torpedo*. Wehren Si« 

«ich . . . aber mit Gedacht. Jeder Schuß uon Ihnen, der kein» 
Mot t # tr 1 f f t , wer »ch I »ch ter t I hr G« s jrn t ergehn 1 m . 

( TCS> Art. 022 3?.- 0t1 


S electronic aktuell 

Büro- und Personalcomputer ^preiswert 

Sandkaulstraße 84 - Telefon: 0241-232 17 

V 5100 AACHEN 

Wir senden Ihnen gerne unseren Softwarekatalog mit über 100 Programmen! (Natürlich kostenlos!) 


VIER GEWINNT 

0»» ABSOLUTE DENKSPIEL !• - Ihr KltlntUr f.hltr wird »an 

Computer bemerkt. Die kleinste Unaufmerksamkeit führt zum 
Uirluil dfr Pirtit. Der Computer kontert ichnell und luuer- 
lä»»ig, Sie heben f»»t kein* Chance. Ziel i»t >n, Spleleteine 
In ein senkrechte» Gitter »Inzuwerfen und dabei uier Steine 
waagerecht, diagonal oder senkrecht nebenelna nder zu 
platzieren, Da* Programm arbeitet In Much I nenspraehe , *o daS 
der Gegenzug »ehr »chnell berechnet wird. 

(Kurt fiärtker) Art. 952 SeS 25.- CM 


ANDROMEDA 

Ein erstklassiges dre i dlmen»! onal e* Ue I traumsp I • I mit antprech 
enden Grafik. Feindliche Raumschiffe k c-'ivn e n auf Sit ZU | Ver- 
nlchten Sit dl**», bevor lhntn wertvoll# Energie abgezapft 
wird. Ist dit Zelt abgelaufen, so eilt lhntn Ihrt Mutterbasis 
zu Hl He, aber da* Auftanktn will such gtltrnt st In. 
tres) Art. 028 39.- 0M 


LABYRINTH 


(R. Mir) 

Ein Spiel für Leute mit gutem räumlichen Denkvermögen ! 

SI# befinden »ich In einem Labyrinth und »ehen nur Hauern, Gän- 
ge und Türen vor »Ich. Ihr Ziel l»t e» mit mögllcht wenigen Zü- 
gen den Ausgang zu finden. Art. 013 SeS 19.- DM 

ZAUBERWÜRFEL 

wer kennt ihn nicht, den 'MAGIC - CUBE' mit »einen unzähligen 
Möglichkeiten. Mit diesem Programm haben Sie Ihren Zauberwurfei 
In den Computer gebannt. Si# können ihn per Tastatur in jede 
Richtung drehen. Schaffen Sie >», Ihn richtig ju5jnvnen;u»etrfn? 
Wetten daB, ...*:. Sie verzweifeln 1 

TR.' Mir) Art. 914 SeS 19.- CM 

MASTER MIND 

Das große Spiel, ...für kluge Köpfe 1 

Kombi n i fren 51# richtig, werten Sie dl# Ml nwe i se au* 

und knacken Sie den Farben - CODE de* Computer». 

Es Ist kein leere» Versprechen, wenn wir Ihnen sagen, 

daB schon nach kurzer Zeit di» Köpf» 'qualmen' 1 

(R. Mir» Art. 013 SeS 19.- DM 

MAXIMILIAN & Rzwo-Dzwo . 32 k 

Ula a im f I I m unmogl i ch ist, Ihr Colouf Genie schafft es. 
Maximilian aus dem 'SCHWARZEN LOCH' und der sympa t i sehe 
Rzwo-Ozwo au* dem 'KRIEG DER STERNE' sowie seine Bruder treffen 
•»ich zu einem Due II . Strategische» Denken ist Voraussetzung, um 
gegen den Computer gewinnen zu können. In dieser Nim-Splel 
Var I an te mii t.schöntten graf i sehen Leckerbissen haben Sie eine 
Gewinnchance von max . 33 kl ! (und das nur bei den ersten Zügenj 
später» Fehler führen unweigerlich zum Ml serfol g. > - Natürlich, 
m i t Mus ik und Soundef f ek ten . ACNTtHGr Da dieses Pr ogr amm sehr 
umfangreich ist, muB Ihr Col our-Gen I « bereit* auf 32 K RAM 
ausgebaut »ein. 

(R. Mir) Art. 918 SeS 23. - DH 


r/Mo-t-Asp . (uon P, Thon.*) 

Endlich »In» wirklich gelungen» tierslon des bekannten und 
berühmten 'Pac - Man' uon Atari ! 

Mit wunderbarer Grafikf Ton, etc. Im Gegensatz zum Original 
vergrößert sich die Anzahl der 'Geister' im Sp i e 1 uer I auf und 
macht das SpleV somit noch interessanter. In einem Labyrinth, 
das den gesamten Bildschirm ausfüllt, müssen Sie als 'Eul I - 
Emi 1 ' mögl ichst viele Punkte saittneln, ohne uon den 'Geistern' 
eingefangen zu werden. Oie besten Spieler werden in einer 
Recordliste angezeigt, so daß Sie In Ihrer Familie o.i. regel- 
rechte Uettkämpfe austragen können. Pac-Man Ist eines der äl- 
testen Video-Spiele, .... Und eines der schönsten. Nicht um- 
sonst ist es so berühmt! 'PAC-tÄB' Ist die verbesserte Version 
für Ihr: Col our-Gen I e . Art. 033 SeS 39.- DM 


Die Nachfol geversldn von PAC-LAB« Das Bl I dsch I rmforma t wurde 
durch Umprogrammierung des CRTC vergrößert, so daß ein noch 
größeres Labyrinth zur Verfügung steht. Der Ablauf ist etwas 
abgewandelt und die Geschwindigkeit s te I ger t sich von Sp I e I zu 
Spiel enorm. PAC-LAB I I ist scmlt noch Interessanter, noch 
schneller und noch schwieriger zu 3p i e I en . Na tür I I ch mit 
ausgezeichneter Grafik und hervoragendem Ton. Geschrieben von 
Patrlc Thomas. Art. 040 SeS 49.- DM 
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74 


LD 

HL? 4400H 


75 


LD 

Br 25 

5 ZEILEN 

76 

LD0P3 

LD 

C.-40 

■BUCHSTABEN 

77 

L0QP4 

LD 

Ar (HL) 

■ ZEICHEN HOLEN 

78 


INC 

HL 

5 NAECHSTE POS 

79 


CP 

7FH 

* KANN ZEICHEN BEDRUCKT WERDEN? 

80 


JP 

Cr DRUCK 

? JA! DRUCKEN! 

81 


LD 

Ar ’ . =■ 

? NEIN! PUNKT DRUCKEN 

82 


JP 

DRUCK 


83 

WEITEI 

DEC 

C 

ü ZEILE FERTIG? 

84 


JP 

NZ > L00P4 

5 NE IN ! WEITERMACHEN 

85 


LD 

Ar 13 

; ASCII FUER RETURN 

86 


PUSH 

DE 


B7 


CALL 

3BH 


88 


POP 

DE 


89 


DJNZ 

LOOP3 

; RESTLICHE ZEILEN DRUCKEN 

90 


CALL 

PA 


Q1 


RET 


5 FERTIG 

• V : v.' 

DRÜCK 

PUSH 

DE 


iZ 


CALL 

3BH 

■ROM ROUTINE DRUCK 

94 


POP 

DE 


95 


JP 

WEITEI 


96 

■ 




97 

; SYNTA 

X-CHECK FUER WAIT- 

-BEFEHL 

98 

WAIT 

RST 

10H 


99 


RST 

08H 


100 


DEFM 

' A f 


101 


RST 

OBH 


102 


DEFM 

’ I’ 


103 


RST 

OBH 

104 


DEFM 

?; T’ 


105 


RST 

08 H 

106 


DEFM 

? ? 

. ' ■ ■: : i 

107 

5 SYNTAX OKAY! AUSFUEHREN ! 

108 


DEC 

HL 

; POINTER KORRIGIEREN 

109 


PUSH 

BC 


110 


PUSH 

DE 


111 


CALL 

2B1BH 

; ROM ROUTINE WERTET 8-BIT 

112 




INTEGER AUS. 

113 


POP 

DE 


114 


POP 

BC 


115 


CP 

0 


116 


JP 

ZrWAITl 

? ZAHL Or WARTEN AUF TASTENDRUCK 

117 


LD 

Cr A 

5 ZEITWERT *256 

118 


LD 

Br A 

? DELAYWERT 

119 


CALL 

60H 

•ROM ROUTINE DELAY 

120 


RET 


; FERTIG 

121 

WAITl 

CALL 

49H 

5R0M ROUTINE WARTET 

122 




AUF TASTENDRUCK 

123 


RET 


•FERTIG 

124 

■ 

7 




125 

■SYNTAX CHECK FARBE BEFEHL 

126 

FARBE 

RST 

10H 


127 


RST 

OBH 


128 


DEFM 

' A’ 


129 


RST 

08H 


130 


DEFM 

>R’ 


131 


RST 

08H 


132 


DEFM 

’B' 


133 


RST 

08H 



GENIE DATA 61 


134 


DEFM 

? E ? 


135 


RST 

08H 


136 


DEFM 

r* ? 


137 

? SYNTAX OKAY! AUSFUEHREN 


138 


PUSH 

BC 


139 


PUSH 

DE 


140 


DEC 

HL 

? POINTER KORRIGIEREN 

141 


CALL 

2B1BH 

; ZAHL IN AKKU 

142 


POP 

DE 


143 


POP 

BC 


144 


PUSH 

AF 


145 


CALL 

PU 


146 


POP 

AF 


147 


LD 

HL, OFOOOH 

5 START COLOUR RAM 

148 


LD 

DE, 0F001H 

ü NAECHSTE POSITION 

149 


LD 

BC,3FFH 

S ZAEHLER 

150 


LD 

(HL) , A 

; ERSTEN FARBWERT SETZEN 

151 


LDIR 


5 LOAD AND INCREMENT 

152 


PUSH 

AF 


153 


CALL 

PA 


154 

155 

156 

157 


POP 

AF 

. i — i — r*. *r" t r' 

r\t.i srcniiu ^ 

I SYNTAX CHECK GRINV-BEFEHL f 

15B 

159 

160 

GRINV 

RST 

RST 

DEFM 

10H 
08H 
’ R’ 

V 



161 


RST 

08H 


162 


DEFM 

’ I -' 


163 


RST 

08H 


164 


DEFM 

* N J 


165 


RST 

08H 


166 


DEFM 

’ V’ 


167 

S SYNTAX OKAY! AUSFUEHREN! 

16B 


CALL 

PU 


169 


LD 

HL, 0F400H 

5 START CHAR-RAM 

170 


LD 

BC, 3FFH 

S ZAEHLER 

171 

LOOP6 

LD 

A, (HL) 

J BYTE HOLEN 

172 


CPL 


; INVERTIEREN 

173 


LD 

(HL) , A 

;UND ZURUECK 

174 


INC 

HL 

;NAECHSTES BYTE 

175 


DEC 

BC 

; ZAEHLER = ZAEHLER -1 

176 


LD 

A, B 


177 


DR 

C 


178 


JP 

NZ , L00P6 


179 


CALL 

PA 


1B0 


RET 


5 FERTIG 

181 

F'U 

EXX 



182 


RET 



183 

PA 

EXX 



184 


RET 



185 

AUSGA 

CALL 

PU 


186 


LD 

HL, TEXT 


1B7 


CALL 

28A7H 

,* DRUCKEN 

188 


CALL 

PA 


189 


JP 

1A19H 


190 

TEXT 

DEFM 

3* 
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5 CLEAR 100 

10 31 :-H :+-■ :+= =4: :4: :+: =+: 

11 ’ 

12 " DEMOPRQGRAMH ZUM CQLOUR GENIE 

13 •' TOOLKIT. 

14 % 

20 ? ' 

30 CLS 

40 FÜR I = 1 TO 20 
50 NAME INVERS 
60 NEXT I 

70 ; 

80 PR INT "Das war der INVERS-Bef ehl " 

90 PRINT s PRINT"TiPP©n Sie Jetzt eine Taste." 

100 NAME WAIT,G 
110 : ? 

120 PRINT: PRINT" Jetzt zeise ich Ihnen dfen GRINV-Befehl 
130 FÜR I — 1 TO lOO 
140 NAME GRINV 

150 NEXTI 

151 FOR I » 0 TO 15 

152 PDkE &HF400+1 ,0 

153 NEXT I 

160- A$ = CHR*<128> + STRINGS (30? 129) +CHR$(128) 

170 FOR I = O TO 7 
180 POKE &HF400+1 » 255 
190 NEXT I 

200 PRINT" "S STRING* (32, 128) 

210 FOR I = 1 TO 10 
220 PRINT" "J A* 

230 NEXT I 

240 PRINT" "? STRING* (32-* 128) 

250 FOR I = 1 TO 10 
260 NAME GRINV 
270 NAME WA IT, 255 
280 NEXTI 

290 PRINT: PRINT"Und zum Schluss den FARBE-Be-f ehl . " 

300 PRlNT"Tippen Sie eine Taste." 

301 NAME WA IT, 0 
305 NAME INVERS 

320 FOR 1=1 TO 255 
330 NAME FARBE, I 

335 NAME GRINV 

340 NAME WA IT , 100 
350 NEXTI 



Orgel- und Piano-Bausätze 

MUSIK und COMPUTER 







DAS WERSI DMS-SYSTEM 


Kreative Freizeit — problemloser Orgel-Selbstbau 


Durch die Kombination von Com- 
puter und Musikinstrument — die 
nur Wersi als „Made in Germany" 
bietet — eröffnen sich dem Com- 
puter-Anwender bislang unge- 
ahnte, faszinierende Software-Be- 
reiche. Der Musikfreund gewinnt 
neueDimensionenin Gestaltungs- 
vielfalt, Klangschöpfung, Kompo- 
sition und Interpretation. 

Das Wersi-DMS-System „macht's 
möglich". Durch Volldigital-Tech- 
nik wird die Verbindung mit dem 
Computer möglich. Start frei für 
die Anwendungen der Zukunft. 


DAS NEUE WERSI- 
DtGiTAL-ORGEL- 
^ SYSTEM 


o»vc«ia 


•vST&UWlNt 

»XCm*.*»' 

6»'ti 

/*N 


5£Cvt**t*» 


CASWTTH 
».’€*•* 4*r 


MIO» 

V.7(ltfACC. 


Machen S*e mehr 
aus Ihrer 

Werv-Digrtal-0»g«l 


v.STftuvrM 

IVBiC’hK 


wStnouf.r 

ÜICrf,tr>. 

DT» 


MUSIK UND TECHNOLOGIE - MADE IN GERMANY 


DIE ALPHA DX300 - das Superding 
das sich per Computer steuern läßt 


Mit der ALPHA DX300 verfügen Sie über ei- 
nes der außergewöhnlichsten Orchester für 
zuhause oder das Studio, ein Keyboard oder 
Synthesizer für die Bühne und vieles andere 
mehr. Die Zukunft ist Wirklichkeit. 

Die ALPHA DX300 ist „lernfähig", d. h. sie 
kann neue Programme, Klangfarben etc. je- 
derzeit ändern, löschen oder aufnehmen. 
Diese Dimension ist neu und vorteilhaft, wenn 
die ursprünglich einprogrammierten Instru- 
mente vielleicht doch einmal in Vergessen- 
heit geraten sollten. 

Die ALPHA DX300 verfügt über die interna- 
tionale Standard-Schnittstelle RS 232; hieran 
läßt sich ein „Apple", ein „Commodore", 
„Sirius" oder andere Home-Computer an- 
schließen. Die Software für Ihren Computer 
schreiben Sie entweder selbst oder beziehen 
unsere Software-Pakete für Ihren Rechner. 
Der Anschluß des Home-Computers eröffnet 
Ihnen das breite Spektrum der Variations- 
möglichkeiten, Ihrer ALPHA DX300 neue 
Sounds, neue Presets usw. „beizubringen". 
Umgekehrt läßt sich auf dem Home-Compu- 
ter (falls dieser dafür technisch ausgelegt ist) 
tabellarisch oder grafisch der „Inhalt" Ihrer 
Orgel abbilden z. B. die gespielten Noten 
oder Registrierinhalte. 


Coupon bitte einsenden an: Wersi electronic, Industriestraße, 5401 Halsenbach 







Beides! Iiö^irradix 10 

Druckprinzip-. 9-Nadel-Mfflrix-Druckkopf auf Hormalpapler Geschwindigkeit: 200 Zelrhen/Sekuiide. bet Schönschrift 32 Zeichen/Sekunde Puffer: 10K Schrift- 
größen: 10, 12, 17 (5. 6, 3.5) Zeiuhen/Eoll, entsprechend 80. 96, 156 (bei doppelter Breite: 40. 48. 63) Zidchen/Zeile Schriftmatrix: Standard ASCII mit 
Unterlängen 9 :< 9, Breit 18 >: 0, Fett 18 * 18. Schönschrift 17 * 9 Grafik: Bloekgraßk 6 * 6. Low Resolution Grafik 480 * 8 Punkte/Zolle, High Resolution 
960 x 8 Punkte/Zeile. Ultra High Resolution 1920 • 8 Hunkto/Zeile Schriftsatz: 96 Standard ASCII Zeichen. 96 HLQ-ASCII Zeichen, 88 Internationale 
Sonderzeichen. 64 Sonderzeichen. 32 Blockgrefikzeiehen. 2 * 9ö Hintergrundzeichen (normal - proportional } Schriftarten: Normal. Hüte. Eng. Breit. Extra Fett, 
Superecript und Subseript Sonderfunktionen: Schönschrift (NLQ). Einzelblauc-mzug, Selbsttest. ilmiergrundzeiehen. ’.hicrü- Instruction. durchgehendes 
Unterstreichen, Form- und Längenauswahl mit Kippschalter, 7 oder 8bit wählbares Interface, Papieitransport vorwärts und rückwärts. Ilochauflösfinde Grafik 
FormularFunktion: vertikaler und horizontaler Tabulator, linker und rechter Rand. Leei-zeiiön zwischen den Seiten. Zeilciisnzah! pro Seite, Zeilenabsumd / Zoll 
und /Zoll, sowie programmierbar in /«Zoll und /-.Zoll Farbband-. Kassette, Nylon 40/34 ?. endlos Papier: 1 Original und 3 Durchschlüge, ßinzelbto 
14 -21 .6 cm Breite, Endlos 10,2-25, 4cm Breite Interface: Standard: Seriell und Parallel, Optional: IEEE, Cojnmodore. Grafstar (AI’PIl) Abmessungen: 
41 4 x 34 8 x 1 1 7 «m Gewicht- 9 1 KO 
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